Определить наименьший элемент каждой четной строки...

[weh]

Определить наименьший элемент каждой четной строки и нечетного столбца заданной квадратной матрицы А.

[min@y™]

готово!

200600.png

давай скорее ещё своих мегаинтересных задач!

[newerow1989]

var a:array[1..10,1..10] of integer;
    i,j,k,min:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:3,'  ');
         If j=10 then
         begin
            min:=a[i,1];
            For k:=2 to 10 do
               If min>a[i,k] then
                  min:=a[i,k];
            Write('  min = ',min);
         end;
      end;
      Writeln;
   end;
   Writeln;
   Writeln('min:');
   For j:=1 to 10 do
   begin
      min:=a[1,j];
      For i:=1 to 10 do
         If min>a[i,j] then
            min:=a[i,j];
      Write(min:3,'  ');
   end;
   Writeln;
   Readln;
end.