Найти максимальный элемент в каждой строке матрицы и записать данные в новый массив - Pascal ABC

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

Найти максимальный элемент в каждой строке и записать данные в новый массив. через рандом нужно

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

textual
Uses crt;
Const n=7;m=10;
Var i,j:integer;
    a:array[1..n,1..m]of integer;
    max:array[1..n]of integer;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3);
    end;
   writeln;
  end;
 writeln('Maksimalnie po strokam:');
 for i:=1 to n do
  begin
   max[i]:=a[i,1];
   for j:=2 to m do
    if a[i,j]> max[i] then max[i]:=a[i,j];
   write(max[i]:3);
  end;
End.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы