Помогите пожалуйста! Нужно в паскале
Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива

1

Ответы и объяснения

2013-04-29T00:01:01+04:00
Program zd1;
var
a:array [1..5] of integer;
i:integer;
srznach:integer;
begin
for i:1to 5do a[i]:=random(10);
writeln ('имеющийся массив');
for i:=1 to 5 do;
begin
srznach:=(1+2+3+4+5)/5;
writeln;
writeln('среднее арифметическое', srznach);
end.