Сформировать массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки - Turbo Pascal

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

Помогите пожалуста написать програму на паскаль) Дан двумерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки двумерного массива

Код к задаче: «Сформировать массив, каждый элемент которого равен наибольшему по модулю элементу соответствующей строки - Turbo Pascal»

textual
Var
  x: Array [1..10,1..10] of Integer;
  y: Array [1..10] of Integer;
  i,j,n,m: Byte;
  max: Integer;
BEGIN
Write('Введите размеры матрицы: ');
Readln(n,m);
Randomize;
For i:=1 to n do
begin
  max:=0;
  For j:=1 to m do
  begin
    x[i,j]:=Random(101)-50;
    Write(x[i,j]:4);
    If Abs(x[i,j])>Abs(max) Then
    max:=x[i,j];
  end;
  y[i]:=max;
  Writeln
end;
Writeln('Одномерный массив: ');
For i:=1 to n do
Write(y[i],' ');
Readln
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.786 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы