Получить вектор, каждая компонента которого наибольшый по абсолютной величине элемент соответствующей строки матрицы

Категория: Delphi/Pascal
2011-08-26 20:34:28

Дана прямоугольная матрица. Получить вектор, каждая компонента которого наибольшый по абсолютной величине элемент соответствующей строки матрицы

code: #pascal
  1. uses
  2.   crt;
  3. var
  4.   a:array[1..100,1..100]of integer;
  5.   ma:array[1..100]of integer;
  6.   i,j,max,m,n:integer;
  7. begin
  8.   clrscr;
  9.   writeln('vvod matrici');
  10.   write('vvedite 4islo strok:..... ');
  11.   readln(m);
  12.   write('vvedite 4islo stolbcov:.. ');
  13.   readln(n);
  14.   for i:=1 to m do
  15.   for j:=1 to n do
  16.   begin
  17.     write('vvedite ',j,' element ',i,' stroki:  ');
  18.     readln(a[i,j]);
  19.   end;
  20.   for i:=1 to m do
  21.   begin
  22.     max:=a[i,1];
  23.     for j:=2 to n do if a[i,j]>max then max:=a[i,j];
  24.     ma[i]:=max;
  25.   end;
  26.   writeln('vivod matrici');
  27.   for i:=1 to m do
  28.   begin
  29.     for j:=1 to n do write(a[i,j],' ');
  30.     writeln;
  31.   end;
  32.   writeln('naibolshie elementi strok');
  33.   for i:=1 to m do write(ma[i],' ');
  34.   readln;
  35. end.
Поделиться:

Похожие статьи:

теги: одномерный массив, массив, двумерный массив, студенты, консольное приложение, матрица, вектор