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.
Результат:
-1 1 2 -2 -3 3
Y: Z:
1 -1
2 -2
3 -3
<span>45(x)+55(x)=122(x)</span>
4X+5+5X+5=X*X+2X+2
x^2+2x-4x-5x=5+5-2
x^2-7x-8 = 0
по т. Виетта:
x1=8
x2=1 - не подходит по условию задачи.
Ответ: 8
1) var
<span>a:array[1..20] of integer;
n, i :integer;
begin
For i := 1 to 20 do
begin
a[i]:=0;
write(a[i],',');
end;
end.
2) </span>var
a:array[1..20] of integer;
n, i :integer;
begin
For i := 1 to 20 do
begin
a[i] := random(41)-20;
write(a[i],',');
end;
end.
3) var
a:array[1..200] of integer;
n, i :integer;
begin
For i := 1 to 200 do
begin
a[i]:=53;
write(a[i],',');
end;
end.
№1
Ответ: <span>МОЛОДЦЫ
№2
</span>Зашифрованное сразу после ":"
ИНФОРМАТИКА:<span>** -* **-* --- *-* -- *- - ** -*- *-
</span>
ДАННЫЕ:<span>-** *- -* -* -*-- *
</span>
Алгоритм:<span>*- *-** --* --- *-* ** - --
</span>№3
Чтобы рубить дрова, нужен топор
Чтобы полить огород нужна лейка
"Рыбаки сделали во льду прорубь и стали ловить рыбу."
<span>"Самый колючий зверь в лесу - это ёж</span>