Предмет: Информатика,
автор: 57hvifcpib
ПОМОГИТЕ! • ПАСКАЛЬ!
Приложения:
Ответы
Автор ответа:
0
Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.
Интересные вопросы