Информатика

Есть целые числа a,b,c,d вывести в 1 сроке наибольшое а в 2 найменьше


<< Предыдущий вопрос Следующий вопрос >>

Var a,b,c,d,i,max,min : integer;
h : array [1..1000] of integer;
begin
For i:=1 to 4 do
Read(h[i]);
min:=100000;
max:=-100000;
For i:=1 to 4 do
begin
if h[i]>max then max:=h[i];
if h[i]<min then min:=h[i]
end;
Writeln(max);
writeln(min)
end.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы