Решение задачи №1686
Условие задачи №1686:
В матрице найти минимальный и максимальный элементы побочной диагонали, поделить все элементы на их сумму (используя процедуру/функцию).Решение
Описание отсутствует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 57 58 59 60 61 62 | program matrizi; {$APPTYPE CONSOLE} uses SysUtils; type mas=array[1..15,1..15] of double; procedure VVOD (var a:mas;var n:integer);var i,j:integer;beginwriteln('VVedite kolichestvo strok/stolbzov');readln(n);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 (a:mas;n:integer;var sum:double);var i,j:integer; min,max:double;begin min:=a[1,n];for i:=1 to n do if a[i,n+1-i]<min then min:=a[i,n+1-i]; max:=a[1,n];for i:=1 to n do if a[i,n+1-i]>max then max:=a[i,n+1-i]; sum:=min+max;writeln('Min element pobochnoi diag ',min:0:0);writeln('Max element pobochnoi diag ',max:0:0);writeln('Cymma ',sum:0:0);end; procedure DELENIE (a:mas;n:integer;sum:double;var c:mas);var i,j:integer;beginfor i:=1 to n do begin for j:=1 to n do c[i,j]:=a[i,j]/sum; end;end; procedure VIVOD (c:mas;n:integer);var i,j:integer;beginfor i:=1 to n do begin for j:=1 to n do write (c[i,j]:1:1,' '); writeln; end;end; var M,K:mas; n:integer; summa:double;begin VVOD(M,n); POISK(M,n,summa); DELENIE(M,n,summa,K); VIVOD(K,n);readln;end. |