Предмет: Информатика,
автор: Женя99Н
С клавиатуры водиться последовательность из n- целых чисел. Сколько в ней четных чисел?(нужно: 1) постановка задачи; 2) алгоритм и 3) программа)
Ответы
Автор ответа:
0
program picaso; uses crt;
var i,n,k:integer;
a:array[1..10] of integer;
begin clrscr;
k:=0;
writeln('Vedite nomer cisel');read(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 2)=0 then inc(k);
writeln('Nomer ciotnih cisel: ',k);
end.
var i,n,k:integer;
a:array[1..10] of integer;
begin clrscr;
k:=0;
writeln('Vedite nomer cisel');read(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 2)=0 then inc(k);
writeln('Nomer ciotnih cisel: ',k);
end.
Похожие вопросы
Предмет: Английский язык,
автор: maksimilin726
Предмет: Английский язык,
автор: Аноним
Предмет: Английский язык,
автор: muskaevplaton
Предмет: Математика,
автор: Alloha232
Предмет: Математика,
автор: kirillbolshev