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); пишет Ожидалось имя процедуры или функции

Question

Miesha

Информатика

7 марта, 06:38

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); пишет Ожидалось имя процедуры или функции

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Анна Парамонова · Answer 1

Для того, чтобы исправить данную ошибку нам нужно поменять ''a[i] random (50); '' на ''a[i] : = random (50); ''

Теперь программа будет успешно работать