Код
program k;
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if i mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if i mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.
В чем моя ошибка?