Помогите пожалуйста. Дан массив А: array [1..30] of real. Создать программу для нахождения среднего арифметического всех элементов массива. Спасибо)
5-9 класс
|
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.
Другие вопросы из категории
A перемножаются N раз).
Продавец продает шапку. Стоит она 10 руб. Подходит покупатель, меряет и согласен взять, но у него есть только 25 руб. Продавец отсылает мальчика к соседке разменять эти деньги. Мальчик прибегает и отдает 10+10+5. Продавец отдает шапку и сдачу в 15 руб. Через какое-то время приходит соседка и говорит, что 25 руб. фальшивые, требует отдать ей деньги. Продавец возвращает ей деньги.
На сколько обманули продавца?
Вычислить сумму всех чисел кратных 3 от 27 до 101 включительно .
Читайте также
Задание 1. Составить программу для вычисления по формуле:
Y = √|2x² - 7x| + 12
Задание 2.
Составить программу для вычисления значения функции:
Задание 3. Дано натуральное N. Вычислить: S=2*4*6*...*2N.
Задание 4. Дан массив А(20), заполненный датчиком случайных числе. Найти среднее арифметическое всех элементов массива.
Задание 5. дана матрица А(10,10), заполненная датчиком случайных чисел. Найти сумму значений всех элементов данной матрицы.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
натуральных двузначных чисел, кратных 2, в программе- построение блок схем, используя циклический алгоритм