Составте программу, которая позволяет вводить с клавиатуры элементы массива [1..10] а затем выводит на экран вначале элементы массива с четными положительными, а затем нечетные отрицательные - вопрос №2621006
var a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
write('a[',i,']=');
readln (a[i]);
end;
write('четные положительные: ');
for i:=1 to 10 do
if (a[i]>0) and not(odd(a[i])) then write(a[i],', ');
writeln;
write('нечетные отрицательные: ');
for i:=1 to 10 do
if (a[i]<0) and (odd(a[i])) then write(a[i],', ');
end.