Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
olegbesan
2 / 2 / 1
Регистрация: 08.06.2012
Сообщений: 44
1

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10

12.06.2012, 11:15. Просмотров 794. Ответов 1
Метки нет (Все метки)

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2012, 11:15
Ответы с готовыми решениями:

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от -2 до 10
Pascal ABC

Вычислить среднее арифметическое значение тех элементов одномерного массива,которые попадают в интервал от -2 до 10.
всем! Пожалуйста помогите решить задачу.Очень надо!ГОС! Вычислить среднее...

Вычислить среднее арифметическое тех элементов массива, значения которых не падает в интервал
Дан массив, состоящий из N элементов. Составить программу, которая вычислит...

Найти среднее арифметическое тех элементов, которые расположены за наибольшим элементом массива
Помогите решить 1. Дан одномерный массив, который содержит не более 50 целых...

Определить среднее арифметическое тех элементов массива, которые больше заданного числа
Даны натуральные число x и целые числа a, а,…,а. Определить среднее...

1
Das Gespenst
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
12.06.2012, 13:47 2
Лучший ответ Сообщение было отмечено olegbesan как решение

Решение

Держи.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program z;
var i,s,k,n,f:integer; sa:real;
a:array [1..100] of integer;
begin
     write('Кол-во элементов вектора: ');
     readln(n);
     writeln('Случайный вектор');
     for i:=1 to n do
         begin
              a[i]:=trunc((10-(-10))*random+(-10));
              write(a[i],' ');
         end;
     writeln;
     f:=0; k:=0; s:=0;
     for i:=1 to n do
         if (a[i]>-2) and (a[i]<10)
            then
                begin
                     s:=s+a[i];
                     k:=k+1;
                     f:=1;
                end;
     sa:=s/k;
     if f=0
        then
            writeln('Элементов, удовлетворяющих условие -2<a[i]<10 в массиве нет!')
     else
         writeln('Среднее арифметическое элементов, удовлетворяющих условие -2<a[i]<10 в массиве - ',sa:5:1);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2012, 13:47

Найти среднее арифметическое тех элементов массива, которые больше заданного значения Z
Дан массив X(N,M).Найти среднее арифметическое тех элементов массива, которые...

Количество элементов одномерного массива меньших, чем среднее арифметическое значение всех элементов массива
Нужно написать программу и блок-схему к ней. Алгоритм поиска количества...

Определить среднее арифметическое тех элементов массива, которые при делении на 4 дают остаток 1 или 3
Ввести двумерный массив A4*3 Определить в нём среднее арифметическое тех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru