Объявить массив из 4 элементов в разделе переменных. Организовать ввод значений пользователем. Найти среднее значение элементов.

Question

Информатика

Таюся

13 января, 07:09

Объявить массив из 4 элементов в разделе переменных. Организовать ввод значений пользователем. Найти среднее значение элементов.

+5

Ответы (1)

Знаете ответ на вопрос?

Эдуардик · Answer 1

Пишу на паскале

var cp:real;

i, k, sum:integer;

mass:array[1 ... 4] of integer;

begin

for i:=1 to 4 do

begin

write ('mass[', i,'] = ') ;

read (mass[i]) ;

k:=k+1;

sum:=sum+mass[i];

end;

cp:=sum/k;

writeln ('Среднее значение переменных равно ', cp) ;

end.