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

Question

Информатика

Ларисса

16 июля, 18:36

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

+3

Ответы (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.