найти ошибку Program primer; const n=s; var a: array [1..n] of integer; i,k: integer; begin k:=0; for - id1073101320211022 от AnnyKat 22.10.2021 21:18

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.

AnnyKat · Accepted Answer

1) var a:array [1..10] of integer;
i:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
for i:=1 to 10 do begin
if (i mod 2 = 0) then a[i]:=0 else a[i]:=a[i]*3;
write(a[i],' ');
end;
readln;
end.

2) var a:array [1..10] of integer;
i,k:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
k:=a[1];
a[1]:=a[10];
a[10]:=k;
for i:=1 to 10 do write(a[i],' ');
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.

MOGZ ответил