написать задачу в паскале. ввести с клавиатуры 10 пар чисел, сравнить числа в каждой паре и напечатать большее из них

Question

написать задачу в паскале и сделать блок схему помогите пожалуйста

Иван Петухов · Accepted Answer

var 
arr : array [1..2, 1..10] of integer; 
i, j : byte; 
begin 
for i 1 to 10 do 
begin 
writeln('введите',i,'пару чисел') 
for j 1 to 2 do 
readln(arr[j,i]); 
end; 
for i 1 to 10 do 
if arr[1,i] >= arr [2, i] 
then writeln(arr[1,i]) 
else writeln(arr[2,i]) 
end. 
 
в синтаксисе могут быть ошибки, т. к. давно не писал в паскале.

Maral · Answer

var 
arr : array [1..2, 1..10] of integer; 
i, j : byte; 
begin 
for i:= 1 to 10 do 
begin 
writeln('введите',i,'пару чисел') ; 
for j :=1 to 2 do 
readln(arr[j,i]); 
end; 
for i:= 1 to 10 do 
if arr[1,i] >= arr [2, i] 
then writeln(arr[1,i]) 
else writeln(arr[2,i]) 
end.