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

Question

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

Answer 1

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.