Задания.ру
Анонимно
2 часа назад

Напишите программу,которая последовательности натуральных чисел определяет сумму нечётных двухзначных чисел.Программа получает на вход кол-во чисел в прследовательности, а затем сами числа.Кол-во чисел не превышает 1000.Введенные числа не превышают 30 000.Программа должна вести одно число-сумму нечетных двухзначных чисел в данной последовательности

Ответ

Анонимно
Program hhh54;
var i,n,x,s:longint;
begin
  s:=0;
  read (n);
  for i:= 1 to n do
    begin
      read (x);
      if (x > 9) and (x < 100) and (x mod 2 <> 0) then s:=s+x; 
    end;
  write (s);
end.

Новые вопросы по Информатике

Написать программу для турбо паскаля: нахождение суммы цифр числа
5 - 9 классы
1 минута назад
ДАМ 35Б СРОООЧНОО 2)как можно посчитать время работы вложенных циклов? 3)какие трудности связаны с увеличением количества вложенных циклов ? 4)Как вывести результат на экран в табличном (матричном)...
5 - 9 классы
1 минута назад
Program gt; var a,b,c,k:integer; begin k:=0; for a:=0 to 12 do for b:=0 to 10 do for c:=0 to 8 do if(a*15+b*17+c*21=185)then begin k:=k+1; writeln(a,' ',b,' ',c); end; writeln(k,'-кол-...
5 - 9 классы
6 минут назад
СРОЧНОО Составить программу для решения задачи. Удвоить все нечетные элементы массива. Размерность массива 28
5 - 9 классы
7 минут назад
Дан массив из 10 целых элементов Вывести сумму индексов чётных элементов​
Студенческий
8 минут назад