максимальное значение чисел в каждом столбце матрицы и его номер.

@VinceNsk · Регистрация: 13.06.2010

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

Введите матрицу вещественных чисел, размером N*M(N<=5, M<=8). Найдите максимальное значение чисел в каждом столбце матрицы и его номер. Выведите матрицу и под каждым столбцом найденный максимум , а строкой ниже - его номер

@Puporev · 13.06.2010, 21:45

Pascal

uses crt;
const nmax=8;
var a:array[1..nmax,1..nmax] of real;
    max:array[1..nmax] of real;
    nom:array[1..nmax] of byte;
    m,n,i,j,imx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до 5 n=');
readln(n);
until n in [1..5];
repeat
write('Количество столбцов до 8 m=');
readln(m);
until m in [1..8];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   write('   ');
   for j:=1 to m do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:2);
    end;
   writeln;
 end;
writeln;
for j:=1 to m do
 begin
  mx:=a[1,j];
  imx:=1;
  for i:=1 to n do
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
   end;
  max[j]:=mx;
  nom[j]:=imx;
 end;
write('Max');
for i:=1 to m do
write(max[i]:5:2);
writeln;
write('Nom');
for i:=1 to m do
write('  ',nom[i],'  ');
readln
end.

@VinceNsk 2 / 2 / 0 Регистрация: 13.06.2010 Сообщений: 42
		1
	максимальное значение чисел в каждом столбце матрицы и его номер. 13.06.2010, 21:23. Показов 1588. Ответов 1 Метки нет (Все метки) Введите матрицу вещественных чисел, размером N*M(N<=5, M<=8). Найдите максимальное значение чисел в каждом столбце матрицы и его номер. Выведите матрицу и под каждым столбцом найденный максимум , а строкой ниже - его номер 0

	13.06.2010, 21:45

максимальное значение чисел в каждом столбце матрицы и его номер.

Решение