Составьте программу для нахождения среднего арифметического элементов массива длиной 4.
Составьте программу для нахождения среднего арифметического элементов массива длиной 4.
Ответ(ы) на вопрос:
Гость
var
ar:array [1..4] of integer;
i:integer;
sum:real;
begin
sum:=0;
for i:=1 to 4 do begin
read(ar[i]);
sum+=ar[i];
end;
writeln;
sum:= sum/4;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы