Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них
Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них
Гость
Ответ(ы) на вопрос:
Гость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]max then
max=a[i];
end;
writeln('Максимальный:',max,',минимальный: ',min);
end.
проверь на паскале только)
Не нашли ответ?
Похожие вопросы