сервис вопросов и ответовНайти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20 до +20
5-9 класс|
|
Ребята,помогите пожалуйста
Potochenkovica
08 марта 2017 г., 15:52:34 (7 лет назад)
Даниэ123
08 марта 2017 г., 17:40:56 (7 лет назад)
var b,c,k:integer;
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln('a[',c,']= ',a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln('Среднее арифметическое элементов массива равняется ',d);
end.
Ответить
Другие вопросы из категории
1) 20 Кбайт=....байт 2) 12 бит=...байт 3) 64 Кбайт=...Мбайт 4) 9 байт=....бита 5) 64 бита=...байт 6) 10
Кбайт=...байт
7) 128 Кбайт=...Мбайт
8) 10 байт=....бита
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Заполнить массив случайными числами на интервале от -10 до +15. Распечатать исходный массив. Подсчитать количество положительных и отрицательных. Поменять
знак у каждого элемента массива. Распечатать. Посчитать количество отрицательных и положительных
Помогите!!!
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
Вы находитесь на странице вопроса "Найти среднее арифметическое положительных элементов массива A(100), заполненного случайными числами в интервале от -20 до +20", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.