Могу Помочь С 5-ым Номером. - (2,3) (6,3) (9,3) (12,1) (9,1) (7,1) (10,1) (5,3) (1,3) (12,1) (4,1) (6,3) (12,1) (3,3) (7,2) (2,1) (5,1) (3,3) (10,3) (4,2) (8,2) (12,1) (10,3) (12,1) (7,1) (7,2) (2,3) (1,1) (10,1) (12,1) (10,3) (9,3) (12,1) (6,1) (7,1) (10,1) (5,3) (1,3) (12,3)
4-ый номер - чётёщ лтчат ыгыт кёюлтёдлц.
или я хочу спать, или 4-тый номер странноватый •_•
........Да, съедобный........
Var
a: array [1..100] of integer;
i: integer;
b: Int64 := 1;
begin
for i := 1 to 100 do
begin
a[i] := random(-2, 20);
write(a[i], ' ');
end;
writeln();
for i := 1 to 100 do
begin
b *= (a[i] < 0 ? abs(a[i]) : 1);
end;
writeln(b <= 100, '(', b, ')');
<span>end.</span>