Question

Составить программу для нахождения среднего значения чисел последовательности кратных 6. Всего в последовательности 12 натуральных чисел, значения которых вводятся с клавиатуры.
P.S. Найти на языке Pascal​

Answer 1

Ответ:

program task;

const n = 12;

var

   a: array [1..n] of integer;

   res, min, i : integer;

   

begin

 res := 0;

 for i:=1 to 12 do

   readln (a[i]);

 for i:= 2 to 31 do

   if ( a[i] mod 6 = 0 ) then

       res := res + a[i];

   

 writeln('Sum: ');

 write(res);

end.

Объяснение: