Предмет: Информатика,
автор: dikor48
Составить программу для нахождения среднего значения чисел последовательности кратных 6. Всего в последовательности 12 натуральных чисел, значения которых вводятся с клавиатуры.
Нужно найти на языке Pascal
Ответы
Автор ответа:
0
Ответ:
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.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: гога7
Предмет: Русский язык,
автор: халима2004
Предмет: Қазақ тiлi,
автор: гулдана3
Предмет: Алгебра,
автор: azion227
Предмет: История,
автор: voitek