Помогите нужно!
Заполнить случайный массив в диапозоне [0;100]
Из 5 элементов найти,среднее арифметическое всех элементов массива
Заполнить случайный массив в диапозоне [0;100]
Из 5 элементов найти,среднее арифметическое всех элементов массива
More Questions From This User See All
Answers & Comments
var
mas: array[1..5] of integer;
i: integer;
a: real;
begin
for i:=1 to 5 do
begin
mas[i]:=random(1000);
writeln('Число ',mas[i], ' ');
a:=a+mas[i];
end;
a:=a/5;
write('Среднее число: ', a);
end.
Держи