Ввести с клавиатуры 10 пар чисел, найти максимальное число в каждой паре и вывести его на экран. В работе использовать цикл с предусловием.

var num1,num2,i:integer;

nums:array [1..10] of integer;

begin

 

i:=1;

while (i <= 10) begin

writeln(Vvedite ,i, paru!);

write(num 1: );readln(num1);

write(num 2: );readln(num2);

if(num1 >= num2) then nums[i]:=num1 else nums[i]:=num2;

i:=i+1;

end;

 

i:=1;

while(i<=10)begin

write(nums[i], );

i:=i+1;

end;

 

end.

Оцени ответ

Загрузить картинку