Объявить массив из 4 элементов в разделе переменных. Организовать ввод значений пользователем. Найти среднее значение элементов.
Объявить массив из 4 элементов в разделе переменных. Организовать ввод значений пользователем. Найти среднее значение элементов.
Гость
Ответ(ы) на вопрос:
ГостьПишу на паскале
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.
Не нашли ответ?
Похожие вопросы