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

program programma;uses crt;varb:array[1..100]of integer;i,n,a,max,k,t:integer;beginclrscr;write('Введите размер массива N = ');readln(n);write('Введите число A = ');readln(a);for i:=1 to n dobeginwrite('b[',i,'] = ');readln(b[i]);end;for i:=1 to n dobeginif 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 dobeginif b[i]> max then max:=b[i];end;for i:=1 to n dobeginif b[i]= max then beginwrite (-max,'  ');  endelsewrite(b[i],'  ');end;end.