Составить программу в паскале, в которой: а) неотрицательные числа заменить sqr, а отрицательные заменить числом 12345. б) Подсчитать и вывести отрицательные элементы массива

a) program zz1;

const n = 5; / / задаем количество элементов в массиве

var i:integer;

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

begin

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

m[i]:=random (51) - 25;

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

write (m[i]:6);

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if m[i] < 0 then m[i]: = 12345 else m[i]: = sqr (m[i]);

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

write (m[i]:6);

end.

б) program zz1;

const n = 5; / / задаем количество элементов в массиве

var i, s:integer;

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

begin

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

m[i]:=random (51) - 25;

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

write (m[i]:6);

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if m[i] < 0 then begin s: = s + 1; write (m[i], ' '); end;

write (' количество отрицательных = ', s);

end.