Дополнить матрицу строкой, в которую записать max элементы всех столбцов

@Настя111 · Регистрация: 27.02.2012

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

дана матрица 5x7 дополнить её строкой в которую записать max элементы всех столбцов и дополнить столбцом в которой записать min значение строк!

@Puporev · 19.03.2012, 20:31

Что писать в правый нижний угол не знаю.

Pascal

uses crt;
const n=5;
      m=7;
var a:array[1..n+1,1..m+1] of integer;
    i,j,mx,mn:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  mn:=a[i,1];
  for j:=1 to m do
  if a[i,j]<mn then mn:=a[i,j];
  a[i,m+1]:=mn;
 end;
for j:=1 to m do
 begin
  mx:=a[1,j];
  for i:=1 to n do
  if a[i,j]>mx then mx:=a[i,j];
  a[n+1,j]:=mx;
 end;
writeln('Добавление столбца и строки:');
for i:=1 to n+1 do
 begin
  for j:=1 to m+1 do
  if(i<>n+1)or(j<>m+1) then write(a[i,j]:4);
  writeln;
 end;
readln
end.

@Настя111 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 20
		1
	Дополнить матрицу строкой, в которую записать max элементы всех столбцов 19.03.2012, 20:15. Показов 1543. Ответов 1 Метки нет (Все метки) дана матрица 5x7 дополнить её строкой в которую записать max элементы всех столбцов и дополнить столбцом в которой записать min значение строк! 0

	19.03.2012, 20:31

Дополнить матрицу строкой, в которую записать max элементы всех столбцов

Решение