Информатика

Рюрик

4 июня, 23:23

Var a:array[1 ... 10] of integer;

i, m, max:integer;

begin

randomize;

m:=0;

for i:=1 to 10 do

begin

a[i] random (50) ;

writeln ('a[', i,']=', a[i]) ;

end;

max:=a[1];

for i:=2 to 10 do

if a[i]>max then max:=a[i];

for i:=1 to 10 do

if a[i]=max then m:=m+1;

writeln (m) ;

end.

почему в этой строчке a[i] random (50) ; пишет Ожидалось имя процедуры или функции