Переписать наибольшие положительные элементы каждого столбца матрицы в одномерный массив - Pascal ABC

Формулировка задачи:

Переписать наибольшие положительные элементы каждого столбца матрицы СX(m,n), в одномерный массив O

Код к задаче: «Переписать наибольшие положительные элементы каждого столбца матрицы в одномерный массив - Pascal ABC»

textual
program myprog;
 
///Переписать наибольшие положительные элементы каждого столбца матрицы СX(m,n), в одномерный массив O
uses crt;
 
const
   n = 7;
 
const
   m = 7;
 
var
   myArrCX: array[1..n, 1..m] of integer;
   myArrO: array[1..n] of integer;
 
 
procedure fillmatrix();
var
   i, j: integer;
begin
   randomize;
   Writeln('Заполняем матрицу случайными числами:');
   for i := 1 to n do
      for j := 1 to m do
         myArrCX[i, j] := random(21) - 10;
   for i := 1 to n do
   begin
      for j := 1 to m do
         write(myArrCX[i, j], ' ');
      writeln;
   end;
end;
 
procedure findmaxpoloz();
var
   i, j, kol, max: integer;
begin
   max := 0;
   kol := 0;
   writeln('Находим положительные числа в матрице и выводим их на экран:');
   for j := 1 to m do
   begin
      max := 1;
      for i := 2 to n do
         if myArrCX[i, j] > myArrCX[max, j] then
            max := i;
      kol := kol + 1;
      writeln('В столбце', ' ', j, ' максимальный элемент = ', myArrCX[max, j]);
      myArrO[kol] := myArrCX[max, j];
   end;
   writeln('Записываем элементы в отдельный массив');
   for i := 1 to n do
      write(myArrO[i], ' ');
end;
 
 
begin
   fillmatrix();
   findmaxpoloz();
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ