Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Andryshee
0 / 0 / 0
Регистрация: 16.09.2012
Сообщений: 10
1

Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов

29.10.2012, 12:29. Просмотров 876. Ответов 1
Метки нет (Все метки)

Заполнить массив значениями функции y=7sin(0,4x) для всех значений x от –10 до 10, взятых с шагом 0,5. Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов.


Ребят,помогите написать программу.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2012, 12:29
Ответы с готовыми решениями:

Найти среднее арифметическое всех положительных элементов массива
Найти среднее арифметическое всех положительных элементов массива. Проверить,...

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

Найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов массива.
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое...

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

Найти среднее арифметическое всех положительных элементов матрицы
2. Найти среднее арифметическое всех положительных элементов...

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

Решение

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
30
31
32
33
34
program z;
var x,min,s:real; i,k:byte;
a:array [1..40] of real;
begin
     writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў: ');
     x:=-10;
     i:=1;
     repeat
           a[i]:=7*sin(0.4*x);
           writeln(a[i],' ');
           i:=i+1;
           x:=x+0.5;
     until x=10;
     writeln;
     i:=2;
     min:=a[2];
     repeat
           if a[i]<min
              then
                  min:=a[i];
           i:=i+2;
     until i=40;
     writeln('Min ýëåìåГ*ГІ Г± Г·ГҐГІГ*ûì ГЁГ*äåêñîì: ',min);
     s:=0;
     k:=0;
     for i:=1 to 40 do
         if a[i]>0
            then
                begin
                     s:=s+a[i];
                     k:=k+1;
                end;
     writeln('ÑðåäГ*ГҐГҐ Г*ðèôìåòè÷åñêîå ïîëîæèòåëüГ*ûõ ýëåìåГ*òîâ: ',s/k);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2012, 17:47

Найти среднее арифметическое всех положительных элементов матрицы
Если нетрудно, то, пожалуйста, напишите программу в соответствие с приложенной...

Вывести на печать через пробел значение положительных четных элементов массива с четным индексом
Дан целочисленный линейный массив на N элементов. Вывести на печать через...

Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива
Cоставить программу, вычисляющую среднее арифметическое всех положительных...


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

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

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