Все элементы строки и столбцы матрицы на пересечении которой находится максимальный элемент умножить вдвое

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

Дана матрица A(N,N), состоящая из случайных элеметов. Все элементы строки и столбцы матрицы на пересечении которой находится максимальный элемент умножить вдвое

code: #pascal
  1. var
  2.   a:array[1..100,1..100]of integer;
  3.   i,j,n,maxi,maxj:integer;
  4. begin
  5.   writeln('vvod matrici');
  6.   write('vvedite razmer matrici: ');
  7.   readln(n);
  8.   for i:=1 to n do
  9.   for j:=1 to n do
  10.   begin
  11.     write('vvedite ',j,' element ',i,' stroki:  ');
  12.     readln(a[i,j]);
  13.   end;
  14.   maxi:=1;
  15.   maxj:=1;
  16.   for i:=1 to n do
  17.   for j:=1 to n do
  18.   if a[i,j]>a[maxi,maxj] then
  19.   begin
  20.     maxi:=i;
  21.     maxj:=j;
  22.   end;
  23.   writeln('vivod matrici');
  24.   for i:=1 to n do
  25.   begin
  26.     for j:=1 to n do write(a[i,j],' ');
  27.     writeln;
  28.   end;
  29.   for i:=1 to n do a[i,maxj]:=a[i,maxj]*2;
  30.   for j:=1 to n do a[maxi,j]:=a[maxi,j]*2;
  31.   a[maxi,maxj]:=a[maxi,maxj] div 2;
  32.   writeln('naibolshiy element matrici: ',maxi,' stroka, ',maxj,' stolbec');
  33.   writeln('vivod matrici');
  34.   for i:=1 to n do
  35.   begin
  36.     for j:=1 to n do write(a[i,j],' ');
  37.     writeln;
  38.   end;
  39.   readln;
  40. end.
Поделиться:

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

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