Var a:array [1..35] of integer; i,max:integer; begin for i:=1 to 35 do begin a[i]:=random(100,190); if a[i]>max then max:=a[i]; end; writeln('Наибольший рост = ',max); end.
в переменной max не задано значение, с чем тогда сравнивается а [i]??
max=0
Зачем задавать ее значение?
ну так и надо задать в программе перед счетчиком, что max:=0, иначе будет ошибка в программе
Переменная max имеет стандартное значение 0, и если мы не укажем ее значение ошибки не будет