Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1 ... n] of integer; i, k: integer; begin randomize; k: =; for i:=1 to n do a[i]: = random (51) - 25; for i:=1 to n do write (a[i]:4); writeln; for i:=1 to n do if a[i] then k:=; writeln ('кол-во отрицательных: ',); end.

Программа стала работоспособной после добавления кода, который выделен жирным начертанием.

program arr;

const n=15;

var a: array[1 ... n] of integer;

i, k: integer;

begin

randomize;

k:=0;

for i:=1 to n do

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

for i:=1 to n do write (a[i]:4);

writeln;

for i:=1 to n do if a[i] < 0 then k: = k + 1;

writeln ('Кол-во отрицательных чисел: ', k);

end.