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

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

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