const n = 2; k = 2; var i,j,s:integer; a:array[1..n,1..k] of integer; begin s:=0; for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); if a[i,j] mod 2=0 then s:=s+a[i,j]; end; if s<0 then for i:=1 to n do for j:=1 to k do if j mod 2=0 then a[i,j]:=1; if s>=0 then for i:=1 to n do for j:=1 to k do if j mod 2=0 then a[i,j]:=-1; for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; end.
Const n = 10; var a: array[1..n, 1..n] of integer; i, j: integer;
begin Randomize; Writeln('Исходная матрица'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; for i:=1 to n do a[i,i]:=0; Writeln('Результирующая матрица'); for i := 1 to n do begin for j := 1 to n do Write(a[i, j]:4); Writeln end end.
