Question

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

Answer 1

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.