Найти сумму чисел кратных трем

[spone379]

Условие задачи: дано K натуральных чисел.Найти сумму чисел кратных трем.
В Паскале с кодом программы.

[Abstraction]

Приведите код, который находит сумму вообще всех чисел.

[spone379]

а поподробней можно?

[Abstraction]

а поподробней можно?

Ну, я предлагаю Вам вначале привести решение задачи попроще - поиска суммы всех K чисел, не разбираясь, на что они делятся. Дальше попробуем её модифицировать в нужном направлении.

Если и это не получается, задача ещё проще: вывести все числа на экран, сразу по прочтении.

[s4egol]

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

[Mad_Cat]

s:=0;
for i:=1 to k do
begin
readln(a);
if a mod 3 =0 then inc(s,a);
end;
write(s);

[Poma][a]

Всем День Добрый!
Mad_Cat, а Вы специально дали такой код?

[Mad_Cat]

а Вы специально дали такой код

какой такой?

[Poma][a]

readln(a);

такой (10 букоф)

[Mad_Cat]

а что именно в нем вам не нравится?

дано K натуральных чисел

не массив, не последовательность, а именно K чисел
ну не буду ж я 100500 переменых типа a1,a2,...ak заводить
и массив заводить не буду, так как он тут не нужен!
K чисел на экране и искомая сумма есть?! чего надо то еще