Использовать
подпрограммы (ввода, вывода, обрабатывающей
части). Дан массив целых чисел А[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]<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.