Использовать

подпрограммы (ввода, вывода, обрабатывающей

части). Дан массив целых чисел А[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 begin

a[i, j]:=random (100) ;

gotoxy ((i-1) * 5+1, j+5) ;

writeln (a[i, j]) ;

end;

for i:=1 to m do begin

min:=a[1, i];

for j:=1 to n do if a[j, i]
gotoxy ((i-1) * 3+1, i+12) ;

write ('min в ', i,' строке равен ', min) ;

s:=min*s;

end;

gotoxy (1,23) ;

writeln (s) ;

end.