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

vika200458 vika200458    1   24.09.2019 17:40    0

Ответы
irynks468dig irynks468dig  08.10.2020 16:06
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.
Организовать с клавиатуры ввод n произвольных целых чисел. найти сумму кратных 7 и количество оставш
ПОКАЗАТЬ ОТВЕТЫ
alinaosipyants alinaosipyants  08.10.2020 16:06
Удачи.
-------------------------------------------------------------------------------------------------------
Настоящий мастер — это вечный ученик.

Организовать с клавиатуры ввод n произвольных целых чисел. найти сумму кратных 7 и количество оставш
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика