Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon «Одномерные массивы»

«Одномерные массивы» - вопрос №660651

Даны натуральные числа n, a1,…,an, где n≤1500. Найти члены ak последовательности a1,…,an, являющиеся удвоенными нечетными числами, и определить их количество.

Написать программу на паскале.

саняСеребряный
13.06.13
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Валентина

program w1;
var a:array[1..1500] of integer;
i,k,n:integer;

begin
writeln('vvedite n');
readln(n);
writeln('vvedite chisla');
for i:=1 to n do
readln(a[i]);
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then
if (a[i] div 2) mod 2 <>0 then
begin
k:=k+1;
write(a[i]:8);
end;
writeln('k=',k);
end.

Буду благодарна, если отметите 
14.06.13
Лучший ответ по мнению автора

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее