Паскаль ошибка: " нельзя преобразовать тип 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.