
Евгения
5 год назад
Дан массив А(20), числа в диапазоне от -50 до +120. Найти количество чисел кратных 4 и их сумму.
ОТВЕТЫ

Димитричка
Oct 24, 2020
Конкретики нет, массив целочисленный, т.к. кратность проверяется во множестве целых.
var A:array[1..20] of integer;
i,s,n:integer;
begin
n:= 0; s:= 0;
for i:=1 to 20 do begin
readln(A[i]);
if A[i] mod 4 = 0 then begin
n:= n + 1;
s:= s + A[i];
end;
end;
writeln('Кол-во чисел, кратных четырем - ', n);
writeln('Сумма чисел, кратных четырем - ', s);
end.
707
Смежные вопросы: