ПАСКАЛЬ Ошибка:" Нельзя преобразовать тип integer к array [1..40] of integer" var mas:array[1..40] of integer; i, max, max1: integer; begin max:=0; max1:=0; For i:= 1 to 40 do begin mas:= random(101); write(mas[i]:4); If mas[i]>max then max:=mas[i]; end; For i:= 1 to 40 do If (mas[i]<>max) and (mas[i]>max1) then max1:=mas[i]; writeln; writeln(max1); end.