Привет. Ну допустим я тебе. Один мальчик очень хотел иметь компьютер, но родители сказали что "Зачем он тебе если ты нечего не умеешь в нём делать". Тогда мальчик задумался и решил что будет лучше учится по информатике и ходить на дополнительные задания. Через пару лет мальчику купили компьютер и в будущем он стал программистом.
Var N,i,x,k:integer; begin; writeln('Сколько элементов в последовательности?'); readln(N); writeln('Введите последовательность чисел'); for i:=1 to N do begin readln(x); if odd(x) then k:=k+1end;writeln(k/N*100,' %'); end.
Один мальчик очень хотел иметь компьютер, но родители сказали что "Зачем он тебе если ты нечего не умеешь в нём делать". Тогда мальчик задумался и решил что будет лучше учится по информатике и ходить на дополнительные задания. Через пару лет мальчику купили компьютер и в будущем он стал программистом.
begin;
writeln('Сколько элементов в последовательности?');
readln(N);
writeln('Введите последовательность чисел');
for i:=1 to N do
begin
readln(x);
if odd(x) then
k:=k+1end;writeln(k/N*100,' %');
end.