Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Вот пожалуйста))
program qq;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer;
begin
cls;
writeln (Введите 10 пар чисел);
read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t);
//Первая пара
if a > b then
writeln (Первая пара больше число ,a)
else 
writeln (Первая пара больше число ,b);
//Вторая пара
if c > d then
writeln (Вторая пара больше число , c)
else writeln (Вторая пара больше число ,  d);
//Третья пара 
if e > f then 
writeln (Третья пара больше число ,  e)
else 
writeln (Третья пара больше число ,  f);
//Четвертая пара
if g > h then
writeln (Четвертая пара больше число , g)
else 
writeln (Четвертая пара больше число  , h);
//Пятая пара
if  i > j then
writeln (Пятая пара больше число , i)
else writeln (Пятая пара больше число  ,g);
//Шестая пара
if  k > l then
writeln (Шестая пара больше число  ,k)
else 
writeln (Шестая пара больше число  ,l);
//Седьмая пара 
if  m > n then 
writeln (Седьмая пара больше число , m)
else
 writeln (Седьмая пара больше число  ,n);
//Восьмая пара
if  o > p then
writeln (Восьмая пара больше число  ,o)
else 
writeln (Восьмая пара больше число  ,p);
//Девятая пара
if  q > r then 
writeln (Девятая пара больше число  ,q)
else 
writeln (Девятая пара больше число  ,r);
//десятая пара 
if  s > t then
writeln (Десятая пара больше число  ,s)
else 
writeln (Десятая пара больше число  ,t);
end.