Использовать
подпрограммы (ввода, вывода, обрабатывающей
части). Дан массив целых чисел А[M,N], где
M,N<=10. В каждой строке массива выбрать
минимальный и найти их произведение.
предмет (программирование)
на Pascal ABC

uses crt;var a : array [1..10, 1..10] of integer ;i,j,n,m:byte;min,s:integer;  begin s:=1;randomize;writeln('Введи кол-во строк(<10)');readln(n);writeln('Введи кол-во столбцов(<10)');readln(m);for j:=1 to m do for i:=1 to n do begina[i,j]:=random(100);gotoxy((i-1)*5+1,j+5);writeln(a[i,j]);end;for i:=1 to m do beginmin:=a[1,i];for j:=1 to n do if a[j,i]<min then min:=a[j,i];gotoxy((i-1)*3+1,i+12);write('min в ',i,' строке равен ',min);s:=min*s;end;gotoxy(1,23);writeln(s);end.