Pascal. двумерный массив a(m, n) заполнен случайным образом. создать одномерный массив b (m), элементами которого являются разности максимального и минимального элементов соответствующих строк.

Программа и пример её работы - в прилагаемом файле.

Var a,b,c,max,two: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
if max=a then
begin
two:=max;
if c < b then two:=b;
if c > b then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=b then
begin
two:=max;
if c < a then two:=a;
if c > a then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=c then
begin
two:=max;
if a < b then two:=b;
if a > b then two:=a;
writeln(max,'+',two,'=',max+two);
end;
end.

Program SummaDrobi;
// это необязательная строчка с названием программы 
var a, b, c, d, n, m: integer; 
// это объявление 6-ти переменных целого типа для хранения данных
begin 
writeln ('Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:');
// это вывод на экран текста
a := 2; b := 5; c := 3; d := 7;
// это присвоение значений в переменные из самой 
// программы (ввод данных с клавиатуры отсутствует)
writeln ('Первая дробь равна: ' ,a, '/', b, ', вторая дробь равна: ', c, '/', d);
// это уже вывод обработанной информации на экран
writeln ('Теперь найдём сумму дробей ');
n := a*d; m := c*b; 
// это обработка данных перед выводом на экран
writeln ('Конечная несокращённая дробь равна: ', n+m, '/', b*d);
// это вывод на экран конечного решения
end.

Результат:
Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:
Первая дробь равна: 2/5 вторая дробь равна: 3/7
Теперь найдём сумму дробей 
Конечная несокращённая дробь равна: 29/35