Дан одномерный массив чисел. 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.