Построить вектор B, каждый i-ый элемент которого равен максимальному элементу i-ой строки матрицы

@Romios · Регистрация: 03.10.2012

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

Дана целочисленная квадратная матрица A. Построить вектор B, каждый i-ый элемент которого равен максимальному элементу i-ой строки матрицы. На печать выдавать исходную матрицу, вектор B.

@Reveng · 04.02.2013, 12:11

Pascal

uses crt;
 
const
  nmax = 10;
 
var
  A : array [1..nmax, 1..nmax] of integer;
  B : array [1..nmax] of integer;
  i, j, n, max : integer;
 
begin
  Randomize;
  Repeat
    Write('Размер матрицы: ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          A[i, j] := random(31) - 15;
          Write(A[i,j]:3, ' ');
        end;
      Writeln;
    end;
  for i := 1 to n do
    begin
      max := A[i, 1];
      for j := 1 to n 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]:3, ' ');
  Readln;
end.

@Romios 3 / 3 / 3 Регистрация: 03.10.2012 Сообщений: 23
		1
	Построить вектор B, каждый i-ый элемент которого равен максимальному элементу i-ой строки матрицы 03.02.2013, 16:47. Показов 1613. Ответов 1 Метки нет (Все метки) Дана целочисленная квадратная матрица A. Построить вектор B, каждый i-ый элемент которого равен максимальному элементу i-ой строки матрицы. На печать выдавать исходную матрицу, вектор B. 0

	04.02.2013, 12:11

Построить вектор B, каждый i-ый элемент которого равен максимальному элементу i-ой строки матрицы

Решение