Размещено 5 лет назад по предмету
Информатика
от mribraew
ПАСКАЛЬ Ошибка:" Нельзя преобразовать тип 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.