Question

пожалуйста помогите найти ошибку
Program primer;
const
n=s;
var
a: array [1..n] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to n do
begin
a[i]:=-10 + random (20);
write (a[i],' ');
if a [i] < othen then (k);
end;
writeln ;
writeln ('Кол-во отрицательных элементов');
readln;
end.

Answer 1

Program primer;

const

n=5;

var

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

i,k: integer;

begin

k:=0;

for i:=1 to n do

begin

a[i]:=-10 + random (20);

write (a[i],' ');

if a [i] < 0 then inc(k);

end;

writeln ;

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

readln;

end.