Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var 
  i, a, n, sum: integer;  

begin
  write(Кол-во чисел = );
  readln(n);
  for i:=1 to n do begin
    readln(a);
    if a mod 2 <> 0 then sum:= sum + a;
  end;
  writeln(Сумма нечетных = ,sum);
end.