Найдите оплошности плиз; очень надоProgram mass;Uses crt;Var b:array [1..10] of integer;i:

Найдите оплошности плиз; очень надо
Program mass;
Uses crt;
Var b:array [1..10] of integer;
i: real;
Begin
Clrscr;
Randomize;
For i:=1 to 10 do
Begin
B:=1+random (10);
Write (b[:3, i,]=, b[i]);
End;
Readkey;
End.

Эльвира Столбовая 2019-02-06 11:02:24

На восьмой строчке перед i ожидался порядковый тип, как это поправить?