Введите n количество чисел чтобы считала только сумму нечетных чисел а

Введите n количество чисел чтоб считала только сумму нечетных чисел а счетных не считала сделайте без массива

Сделайте в паскале

Задать свой вопрос
Милена
Без массива, это из задания?
2 ответа
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число частей последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 lt;gt;0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9


Var 
  i, a, n, sum: integer;  

begin
  write('Кол-во чисел = ');
  readln(n);
  for i:=1 to n do begin
    readln(a);
    if a mod 2 lt;gt; 0 then sum:= sum + a;
  end;
  writeln('Сумма нечетных = ',sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт