Помогите пожалуйста. Дан массив А: array [1..30] of real. Создать программу для нахождения среднего арифметического всех элементов массива. Спасибо)
uses crt;
var a:array [1..30] of real; i:integer; sr,s:real;
begin
clrscr;
randomize;
s:=0;
for i:=1 to 30 do
begin
a[i]:=random(100)-50;
write(a[i], );
s:=s+a[i];
end;
sr:=s/30;
write(sr=,sr);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
