Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

КТО РЕШИТ , ТОМУ 50 БАЛЛОВ!! составить программу нахождения суммы чисел , кратных 3 в массиве М [1:12] (числа вводятся с клавиатуры)

Ответ оставил Гость

Program enot_peredelani;
Var a: array[1..100] of integer;
c,d:integer;
begin
d:=0;
writeln(введите элемент массива);
for c:= 1 to 12 do
begin
readln(a[c]);
if a[c] mod 3 = 0 then
d:=a[c]+d;
end;
writeln(сумма чисел кратных 3 ==> ,d);
end.