1. Напишите программу, которая в последовательности натуральных чисел определяет сумму...

Question

1. Напишите программу, которая в последовательности натуральных чисел определяет сумму нечетных чисел, оканчивающихся на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число 2. Напишите программу, которая в последовательности натуральных чисел определяет количество и среднее значение суммы четных 3-хзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Если избранных чисел нет, вывести «нет»

Comments

а шо по языку программирования?

---

Паскаль

---

Прошу, помогите

---

Честно, не знаю как это сделать

---

Ну я не особый любитель паскаля

---

Впринципе, можно и на питоне

---

Главное решение

---

Но было бы идеально, если на Паскале)

---

Среднее значение эт среднее арифметическое имеется ввиду?

---

Да

Answer 1

program one;

var

 s,n,a,i :integer;

 begin

   s := 0;

  readln(n);

  for i := 1 to n do

  begin

    readln(a);

    if (a mod 2 <>0) and (a mod 10 =7) then

      s := s+a;  

  end;

write(s);

 end.

###

program two;

var

 s,n,a,i, k :integer;

 begin

   s := 0;

  readln(n);

  for i := 1 to n do

  begin

    readln(a);

    if (a mod 2 = 0) and (a>99) and (a<1000) then</strong>

      k := k + 1;

    s := s + a;

  end;

write(k, s/k);

 end.

Comments

Спасибо огроменное!!!