пожалуйста помогите найти ошибку
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.
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.
More Questions From This User See All
Answers & Comments
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.
y: array [1..10] of integer;
begin
readln (n);
writeln ('элементлар саны n=',n);
for x:=1 to n do;
y(x):= x*x;
writeln ;x;' '.y(x);
end.
begin
readln (n);
writeln ('элементлар саны n=',n);
for x:=1 to n do
begin
y:= x*x;
writeln(x,' ',y);
end;
end.