Const n=6; var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3); y,z:array[1..n] of integer; i,i1,i2:integer; begin for i:=1 to n do write(x[i]:3); writeln; i1:=0; i2:=0; for i:=1 to n do if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end; writeln(' Y: Z:'); for i:=1 to n do if (i1>=i)and(i2>=i) then writeln(y[i]:3,z[i]:4) else if i1>=i then writeln(y[i]:3) else if i2>=i then writeln(z[i]:7); end.
//Pascal var A: array [1 .. 5, 1 .. 5] of integer; i, j, SUM: integer; begin randomize; writeln(' ***Исходная матрица***'); for i := 1 to 5 do begin for j := 1 to 5 do begin A[i, j] := random(50); if j >= i then SUM := SUM + A[i, j]; write(A[i, j]:4); end; writeln; end; writeln; writeln('Сумма элементов = ', SUM); writeln; writeln(' ***Измененная матрица***'); for i := 1 to 5 do begin for j := 1 to 5 do begin if i = j then A[i, j] := 1; write(A[i, j]:4); end; writeln; end; readln; end.
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln(' Y: Z:');
for i:=1 to n do
if (i1>=i)and(i2>=i)
then writeln(y[i]:3,z[i]:4)
else if i1>=i then writeln(y[i]:3)
else if i2>=i then writeln(z[i]:7);
end.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3