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

program zz1;

const n = 50;  // задаем количество частей в массиве

var  i, s, k, a, max1:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

write( введите заданное число а);

read(a);

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(21)-10;

for i:=1 to n do  // выводим приобретенный массив на экран

write(m[i], );

writeln;    // перебегаем на новейшую строчку для вывода ответа

for i:=1 to n do

if абс(m[i]) gt; a then k:=k + 1;

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

max1:=0;

for i:=1 to n do  // обретаем наибольший элемент и его номер

if m[i]gt;max1 then begin max1:=m[i];k:=i;end;

m[k]:=m[k]*-1; // меняем символ

for i:=1 to n do  // выводим приобретенный массив на экран

write(m[i], );

writeln;    // перебегаем на новейшую строчку для вывода ответа

k:=0;

for i:=1 to n do

if m[i] mod 5 = 0 then k:=k + 1;

writeln( количество частей массива, кратных 5  = , k); // выводим ответ

end.