Помогите найти ошибку:
program zad6;
var a:array [1..10] of integer;
i,n,b:integer;
begin
read(n);
if (n<=10) then
begin
for i:=1 to n do
b:=random(n)+0;
Writeln(a[b]);
end;
end.
program zad6;
var a:array [1..10] of integer;
i,n,b:integer;
begin
read(n);
if (n<=10) then
begin
for i:=1 to n do
b:=random(n)+0;
Writeln(a[b]);
end;
end.
More Questions From This User See All
Answers & Comments
и после цикла for нужно ставить do begin т.к выполняется два оператора
b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;