Question

подсчитать количество элементов в массиве A[1...10] кратных 6 и выписать среднее арефметическое

Answer 1

//PASCAL ABC.NET

var  i, a: integer;  arr: array [1..10] of integer;
begin  for i := 1 to 10 do    read(arr[i]);  for i := 1 to 10 do  begin    if arr[i] mod 6 = 0 then      a += arr[i];  end;  Write(a/10);end.

ffe7e3a7052be18df1f3112f66566fe9.pas