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

@every · Регистрация: 29.04.2014

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

Найти наибольшие элементы каждого столбца матрицы Y(7,8) и записать их в массив Z

@Adpecke · 01.07.2014, 20:48

Pascal

uses crt;
var
 y:array[1..7,1..8] of Integer;
 z:array[1..8] of integer;
 i,j:integer;
begin
clrscr;
 
{Ввод матрицы Y}
 For i:=1 to 7 do
  For j:=1 to 8 do
  begin
   Write('Input y[',i,',',j,']: ');
   ReadLn(y[i,j]);
  end;
 
{Поиск максимума в каждом столбце}
 For i:=1 to 8 do
 begin
 z[i]:=y[1,i];
  For j:=1 to 7 do
  if z[i]<y[j,i] then z[i]:=y[j,i];
 end;
 
{Вывод результата}
 WriteLn('Исходный массив Y:');
  For i:=1 to 7 do
  begin
   For j:=1 to 8 do
    Write(y[i,j]:2);
   WriteLn;
  end;
 
 WriteLn('Результат Z:');
  For i:=1 to 8 do
   Write(z[i]:2);
 
 Readkey;
end.

@every 0 / 0 / 0 Регистрация: 29.04.2014 Сообщений: 22
		1
	Найти наибольшие элементы каждого столбца матрицы и записать их в массив 01.07.2014, 18:59. Показов 2145. Ответов 1 Метки нет (Все метки) Найти наибольшие элементы каждого столбца матрицы Y(7,8) и записать их в массив Z 0

	01.07.2014, 20:48

Опции темы

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

Решение