Ввести с клавиатуры 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.
Оцени ответ