1. Ввести 3 числа и выбрать наибольшее. 2. Ввести 5 чисел и выбрать наибольшее. P.S. ( в программе Turbo Pascal (TPX))

1

Ответы и объяснения

Лучший Ответ!
2012-12-24T15:35:32+04:00

const
Count = 5; // количество вводимых чисел

var
m : array [1..Count] of Integer;
i, e: Integer;
begin

Writeln('Введите числа:');
for i := 1 to Count do
begin
Write(i ,': '); Readln( m[i] );
end;

e := m[1];

for i := 1 to Count do
if m[i] > e then
e := m[i];


Write('Наибольшее: 'e);
Readln;
end.