Дано 10 чисел найти сумму нечётных чисел?Pascal

Дано 10 чисел найти сумму нечётных чисел?
Pascal

Задать свой вопрос
1 ответ

program fgh;

var i, s, n, a:integer;

begin

s:=0;

writeln('введите 10 чисел');

for i:= 1 to 10 do

begin

readln(a);

if a mod 2 lt;gt; 0 then

s:=s+a;

end;

writeln('сумма= ', s);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт