Учеба и наука

• Всего ответов: 2


Александр Константинович
10-й в
157 отзывов
Вы не указали язык программирования, да и само задание не совсем внятное.
октябрь 15, 2017 г.

Александр Константинович
10-й в
157 отзывов
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.
октябрь 15, 2017 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы