Регистрация
мирок3
16.04.2022 17:21
Информатика
Есть ответ 👍

Выбери подписи к блокам управления:
4 балла
если
повторить 10 )
. То
всегда
Иначе
<
o
бесконечный
цикл
o
o
цикл с
конечным
числом
повторений
o
o
co o o o
полная команда
ветвления
o
o
неполная
команда
ветвления
o
o​

186
284
Посмотреть ответы 1

Ответы на вопрос:

Wow01
Wow01
4,4(41 оценок)

var a: array of integer;

n,i,s,k: integer;

begin

write('введите количество элементов массива: ');

readln(n);

a: =new integer[n];

for i: =0 to n-1 do read(a[i]);

write ('массив: ');

for i: =0 to n-1 do write(a[i],'   ');

writeln;

for i: =0 to n-1 do

if a[i]mod 2 = 0 then

begin

s: =s+a[i];

k: =k+1

end;

writeln('среднее арифметическое чётных элементов массива равно: ',s/k: 0: 3)

end.

Популярно: Информатика