Автор - patauvlad
Ответ:
program ArrayTest;
var
a: array [1..20] of Integer;
i, s, c: Integer;
begin
Randomize;
for i := Low (a) to High (a) do begin
a [i] := Random (20001) - 10000;
Write (a [i], ' ');
end;
c := 0;
WriteLn;
for i := Low (a) to High (a) - 1 do begin
s := a [i] + a [i + 1];
if (s mod 2 <> 0) and (s > 0) then begin
Inc (c);
WriteLn (a [i], ' ', a [i + 1]);
end;
end;
WriteLn ('Количество пар элементов = ', c);
ReadLn;
end.