Составить подпрограмму которая из матрицы f(k, m) k меньше либо равно 25, m меньше или равно 20 удаляет строку, содержащую минимальный элемент всей матрицы. переменных не использовать. в основной программе ввести исходные данные, с подпрограммы получить результат и вывести матрицу до и после преобраз за !

пардоньте, прослоупочил про подпрограммы)

uses crt; var a: array[1..25,1..20] of integer; i,j,min,k,n,m: integer; procedure input_array(n,m: integer; var a: array[1..25,1..20] of integer); var i,j: integer; begin randomize; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(101)-50; write(a[i,j]: 4); end; writeln; end; end; procedure del(n,m,min,k: integer; a: array[1..25,1..20] of integer); var i,j: integer; begin for i: =1 to n do begin if i=k then i: =i+1; for j: =1 to m do write(a[i,j]: 4); writeln; end; end;

beginread(n,m); input_array(n,m,a); min: =a[1,1]; for i: =2 to n do for j: =1 to m do if a[i,j]< min then begin min: =a[i,j]; k: =i; end; writeln; writeln; del(n,m,min,k,a); end.

Var   n1, d1, n2, d2, m, n, d, nn, dd, nod: integer;   r: double; begin   writeln('нахождение суммы двух простых дробей.');   write('введите через пробел числитель и знаменатель первой дроби: ');   readln(n1, d1);   write('введите через пробел числитель и знаменатель второй дроби: ');   readln(n2, d2);   {находим результат, как простую дробь}   n : = n1 * d2 + n2 * d1;   d : = d1 * d2;   r : = n / d;   {если дробь неправильная, надо исключить целое число}   if n > d then begin m : = n div d; n : = n mod d end   else if n = d then begin m : = 1; n : = 0; d : = 1 end   else m : = 0;   {возможно числитель и знаменатель дроби могут быть частично сокращены}   if n < > 0 then begin       {ищем нод числителя и знаменателя и делим их на него}       nn : = n; dd : = d;       while nn < > dd do           if nn > dd then nn : = nn - dd else dd : = dd - nn;       nod : = nn;       if nod < > 1 then begin n : = n div nod; d : = d div nod end;   end;   write(n1, '/', d1, ' + ', n2, '/', d2, ' = ');   if m > 0 then       if n < > 0 then writeln(m, ' ', n, '/', d, ' = ', r)       else writeln(m)   else       writeln(n, '/', d, ' = ', r) end. тестовые примеры: нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 25 5 введите через пробел числитель и знаменатель второй дроби: 64 256 25/5 + 64/256 = 5 1/4 = 5.25 нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 8 19 введите через пробел числитель и знаменатель второй дроби: 154 221 8/19 + 154/221 = 1 495/4199 = 1.11788521076447 нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 5 7 введите через пробел числитель и знаменатель второй дроби: 12 42 5/7 + 12/42 = 1 нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 1 5 введите через пробел числитель и знаменатель второй дроби: 3 11 1/5 + 3/11 = 26/55 = 0.472727272727273

Program drob; uses crt; var a, b, c, d: integer; s: real;     begin     write('введите числитель a1 = ');     readln(a);     write('введите знаменатель b1 = ');     readln(b);     writeln;     write('введите числитель с2 = ');     readln(c);     write('введите знаменатель d2 = ');     readln(d);     s: =(a*d+b*c)/(b*d);     writeln;     write('сумма дробей s = ', s: 0: 3);         readln; end.