Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них

Question

Информатика

Макар

28 мая, 18:29

Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них

+3

Ответы (1)

Знаете ответ?

Настюня · Answer 1

Var max, min : integer;

a:array[1 ... 5] of integer;

max:=0;

min:=0;

begin

for i:=1 to 5 do

readln (a[i]) ;

for i:=1 to 5 do begin

if a[i]
min:=a[i];

if a[i]>max then

max=a[i];

end;

writeln ('Максимальный:', max,', минимальный: ', min) ;

end.

проверь на паскале только)