Помогите пожалуйста. Дан массив А: array [1..30] of real. Создать программу для нахождения среднего арифметического всех элементов массива. Спасибо)
Помогите пожалуйста. Дан массив А: 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.
ГостьМассив вводим с клавиатуры или иного устройства ввода.
Создание программы для нахождения среднего арифметического + вывод среднего арифметического на экран.
i - цикловая переменная
sra - среднее арифметическое всех элементов массива
s - сумма всех элементов массива
var
А:array [1..30] of real;
i:integer;
sra,s:real;
begin
s:=0;
for i:=1 to 30 do
begin
readln (a [ i ]);
s:=s+a[i];
end;
sra:=s/30;
writeln (sra)
end.
Не нашли ответ?
Похожие вопросы