подсчитать количество элементов в массиве A[1...10] кратных 6 и выписать среднее арефметическое
Ответы на вопрос
Ответил leorik2018
0
//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.
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.
Приложения:
Новые вопросы