Дан массив L(15), определить количество и сумму чисел, кратных числу 3. Вывести результат и массив L.
Ребятушки, пишите те, кто реально может помочь. Очень прошу)))
это ТурбоПаскаль

1

Ответы и объяснения

Лучший Ответ!
2013-11-27T19:42:32+04:00
Var i,kol,sum:longint;
l:array[1..15] of longint;
begin
for i:=1 to 15 do
begin
read(m[i]);
if m[i] mod 3 = 0 then
begin
inc(kol);
sum:=sum+m[i];
end;
end;
writeln(kol,' ',sum);
for i:=1 to 15 do
write(m[i],' ');
end.
примерно так
спасибо)))
на кнопку чуть ниже ответа тыкни)