Решение задачи №1696
Условие задачи №1696:
Матрицу n x m чтоб n≤10 m≤12 вещественных чисел.Создать процедуру обработки матрицы чтобы она находила в каждом столбце максимальный элемент и умножала этот столбец на максимальный элемент своего столбца. Вывод матрицы сделать в основной программе.
Решение
Описание отсутствует1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | program matrizi; {$APPTYPE CONSOLE} uses SysUtils; type mas=array[1..10,1..12] of double; procedure VVOD (var a:mas;var n,m:integer);var i,j:integer;beginrepeatwriteln('VVedite kolichestvo strok');readln(n);until n<=10;repeatwriteln('VVedite kolichestvo stolbzov');readln(m);until n<=12;writeln('Vvedite matrizu');for i:=1 to n do begin for j:=1 to n do read (a[i,j]); readln; end;end; procedure POISK (var a:mas;n,m:integer);var i,j:integer; max:double;beginfor j:=1 to m do begin max:=a[1,j]; for i:=1 to n do if a[i,j]>max then max:=a[i,j]; for i:=1 to n do a[i,j]:=a[i,j]*max; end;end; procedure VIVOD (a:mas;n,m:integer);var i,j:integer;beginfor i:=1 to n do begin for j:=1 to m do write (a[i,j]:1:1,' '); writeln; end;end; var A:mas; n,m:integer;begin VVOD(A,n,m); POISK(A,n,m);writeln('Poluchennaya matriza'); VIVOD(A,n,m);readln;end. |