паскал дан массив найти среднее арифметическое
5-9 класс
|
Одномерный массив с рандомными 10-ю элементами:
var
a:array [1..10] of integer;
i,s:integer;
sa:real;
begin
randomize;
for i := 1 to 10 do
begin
a[i]:=random(20);
write(a[i],' ');
end;
s:=0;
for i := 1 to 10 do
s:=s+a[i];
sa:=s/10;
writeln;
write('srednee arifmetisheskoe = ',sa:3:3);
readln;
end.
Другие вопросы из категории
2. В чем отличие задач, решающихся методом математического моделирования, от задач, решающихся
134 в пятеричной системе счисления перевести в 10-тичную (как вы это сделали!??!)
321 в четверичной системе счисления в десятичную))
нерукотворный
1)304 байт
2)38 байт
3)76 бит
4)608 бит
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
1)Дан массив из 10 элементов. Найти среднее арифметическое.
2)