Дом-стоит,карандаш-рисует' на столе едят,дерево растёт
Природная:болото,вулкан,степь
Техническая:Самолет
Смешанная:библиотека,оркестр
Думаю,что так
program raf105;
const
n = 5;
var
a:array[1..n] of integer;
i,max: integer;
begin
max:= -10000;
writeln('Заполните массив:');
for i:=1 to n do
begin
readln(a[i]);
if a[i] > max
then max:= a[i];
end;
writeln('Наибольший элемент: ',max);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Нужно нажать одновременно Cntrl+Alt+Delete