Организовать с клавиатуры ввод N произвольных целых чисел. Найти сумму кратных 7 и...

Question

Организовать с клавиатуры ввод N произвольных целых чисел. Найти сумму кратных 7 и количество оставшихся
Нужно написать блок схему и к ней программу

Answer 1

Удачи.
-------------------------------------------------------------------------------------------------------
Настоящий мастер — это вечный ученик.

---

Answer 2

Var
n, a, k7, ost: longint;
begin
readln(n);
k7 := 0;
ost := 0;
for i := 1 to n do begin
read(a);
if (a mod 7 = 0) then
inc(k7, a)
else
inc(ost);
end;
writeln('Сумма чисел, кратных семи, равна ', k7);
writeln('Количество оставшихся чисел равно ', ost);
end.

---

Comments

Блок схема, минутку

---

Спасибо