Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y

@markus73 · Регистрация: 21.04.2011

Author24 — интернет-сервис помощи студентам

Найти наибольшие элементы каждой строки матрицы X(10×20) и
записать их в массив Y.

@ermolay · 07.10.2012, 09:25

Pascal

const
  n=10;
  m=20;
var
  a: array[1..n,1..m] of integer;
  b: array[1..n] of integer;
  i,j,max: integer;
begin
  randomize;
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    max:=a[i,1];
    for j:=1 to m do
      if a[i,j]>max then max:=a[i,j];
    b[i]:=max;
  end;
  writeln('Полученный массив:');
  for i:=1 to n do write(b[i],' ');
  readln;
end.

@markus73 4 / 4 / 0 Регистрация: 21.04.2011 Сообщений: 52
		1
	Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y 07.10.2012, 09:12. Показов 2505. Ответов 1 Метки нет (Все метки) Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y. 0

	07.10.2012, 09:25

Опции темы

Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y

Решение