Составьте программу для нахождения среднего арифметического элементов массива длиной 4.
Answers & Comments
maksview
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.
Answers & Comments
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.