0 / 0 / 0
Регистрация: 28.12.2012
Сообщений: 31
1

Написать функцию, которая определяет среднее арифметическое нечётных элементов массива

08.01.2013, 21:11. Показов 1179. Ответов 2
Метки нет (Все метки)

написать функцию которая определяет среднее арифметическое нечётных элементов массива
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2013, 21:11
Ответы с готовыми решениями:

Написать функцию, которая: а) определяет есть ли список Р пустым; б) находит среднее арифметическое элементов списка Р;
Написать функцию, которая: а) определяет есть ли список Р пустым; б) находит среднее...

Написать функцию, которая вычисляет среднее арифметическое элементов одномерного массива
1.1 Написать функцию, которая вычисляет среднее арифметическое элементов одномерного массива. Для...

Pascal. Написать функцию, которая вычисляет среднее арифметическое отрицательных элементов массива
Написать функцию , которая вычисляет среднее арифметическое отрицательных элементов масива

Написать функцию, которая вычисляет среднее арифметическое элементов непустого списка
Всем здраствуйте. Помогите пожалуйста кто чем может. Эти задачи будут выведены на экзамен. Очень...

2
0 / 0 / 2
Регистрация: 08.01.2013
Сообщений: 4
09.01.2013, 02:20 2
Лучший ответ Сообщение было отмечено Exc1te как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
 a:array[1..100] of integer;
 n,m,k,i:integer;
 l:real;
begin
 readln(n);
 for i:=1 to n do
   readln(a[i]);
 k:=0;
 m:=0;
 for i:=1 to n do
   if a[i] mod 2=1 then
   begin
     m:=m+1;
     k:=k+a[i];
   end;
 l:=k/m;
 write(l);
end.
0
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
09.01.2013, 10:53 3
Цитата Сообщение от pnmz Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
 a:array[1..100] of integer;
 n,m,k,i:integer;
 l:real;
begin
 readln(n);
 for i:=1 to n do
   readln(a[i]);
 k:=0;
 m:=0;
 for i:=1 to n do
   if a[i] mod 2=1 then
   begin
     m:=m+1;
     k:=k+a[i];
   end;
 l:=k/m;
 write(l);
end.
-неправильный

Добавлено через 24 минуты
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
uses crt;
var
 a:array[1..100] of integer;
 n,m,k,i:integer;
 l:real;
begin
writeln('vvedite n=');
 readln(n);
 for i:=1 to n do begin
 writeln('a[',i,']=');
   readln(a[i]);
   end;
   for i:=1 to n do begin
 write(a[i]);
 end;
 writeln;
 k:=0;
 m:=0;
 for i:=1 to n do
   if a[i] mod 2=1 then
   begin
     m:=m+1;
     k:=k+a[i];
   end;
 l:=k/m;
 writeln('resultat=',l);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2013, 10:53
Помогаю со студенческими работами здесь

Написать функцию, которая вычисляет среднее арифметическое элементов непустого списка
вот сам списаок program prog; type pItem = ^Item; Item = record data: integer; ...

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

Напишите функцию, которая вычисляет среднее арифметическое элементов массива
Напишите функцию, которая вычисляет среднее арифметическое элементов массива. Масс...

Написать функцию, которая определяет количество элементов массива, кратных 5
Написать функцию, которая определяет количество элементов массива, кратных 5.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru