No5 (0,6), (2,8), (3,11), (6,13), (10,14), (14,17), (16,16), (20,16), (22,17), (24,15), (24,11), (21,9), - id1661311120211126 от Ангелина293922 26.11.2021 03:46

Question

Информатика: No5 (0,6), (2,8), (3,11), (6,13), (10,14), (14,17), (16,16), (20,16), (22,17), (24,15), (24,11), (21,9), (20,11), (20,7), (19,6), (16,6), (16,7), (18,7), (19,8), (17,10), (16,10), (15,11), (14,9), (11,11), (10,14). (18,6), (18,4), (16,0), (14,2), (15,4), (15,5), (14,5), (14,0), (11,0), (11,6), (6,6), (7,2), (6,2), (6,1), (3,1), (4,5), (3,8), (0,6). Рисунок по кординатам

Ангелина293922 · Accepted Answer

Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write( Введите размер матрицы );Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j] 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write( :4);end;writeln;end;write( p = ,p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j] 0...

MOGZ ответил