Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дан одномерный массив чисел. Hайти количество элементов массива, превосходящих по модулю заданное число А, изменить знак максимального элемента на противоположный, найти количество элементов массива, кратных 5

Ответ оставил Гость

Program programma;
uses crt;
var
b:array[1..100]of integer;
i,n,a,max,k,t:integer;
begin
clrscr;
write(Введите размер массива N = );
readln(n);

write(Введите число A = );
readln(a);
for i:=1 to n do
begin
write(b[,i,] = );
readln(b[i]);
end;

for i:=1 to n do
begin
if abs(b[i])>a then k:=k+1;
if b[i] mod 5=0 then t:=t+1;
end;

writeln;
writeln(Количество элементов массива, превосходящих по модулю заданное число А = , k);
writeln(Количество элементов массива, кратных 5  = , t);

for i:=1 to n do
begin
if b[i]> max then max:=b[i];
end;

for i:=1 to n do
begin
if b[i]= max then begin
write (-max,  );  end
else
write(b[i],  );
end;

end.