Учеба и наука

Решено

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

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

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

июнь 13, 2013 г.

Сообщить о нарушении

Всего ответов: 1

Валентина

3-й в

411 отзыв

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.