Question

Помогите пожалуйста срочно!!!

Answer 1

Ответ:

program vlasov_loc;

   var i, n, s: integer;

   var a: array [1..1000] of integer;

begin

   writeln('Введите количество элементов последовательности');

   readln(n);

   writeln('Введите элементы последовательности');

   for i:= 1 to n do readln(a[i]);

   for i:= 1 to n do if a[i] mod 6 = 0 then s:= s + a[i];

   writeln ('Сумма элементов кратных шести - ', s)

End.

   

Объяснение:

Как оформить решение не написано, а потому это - алгоритм на Pascal