Question

Подсчитать наименьший положительный элемент двумерного массива от 1 до 20

Answer 1

Ответ:

Объяснение:

Pascal

var a:array[1..100,1..100] of real;

   i,j,n,m:integer;

   min:real;

   begin

   WriteLn('Введите количество строк:');

   readLn(n);

   WriteLn('введите количество столбцов:');

   readLn(m);

   for i:=1 to n do begin

     for j:=2 to m do begin

     a[i,j]:=random(20)-5;

     Write(a[i,j]:10:2);

     end;

     WriteLn();

   end;

   j:=1;

   WriteLn('Минимальные элементы строк:');

   for i:=1 to n do begin

     min:=a[i,j];

     for j:=2 to m do begin

       if min>a[i,j] then begin

        min:=a[i,j];

     end;

     end;

     Write(min:10:2);

   end;

end.