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

Составьте программу вычисления среднего арифметического элементов с нечетными номерами

18.12.2011, 15:40. Показов 6085. Ответов 2
Метки нет (Все метки)

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

Составьте программу вычисления среднего арифметического элементов массива
Составьте программу вычисления среднего арифметического элементов массива

Составьте программу вычисления среднего арифметического элементов массива
Составьте программу вычисления среднего арифметического элементов массива. Помогите Пожалуйста

Вычисления среднего арифметического элементов массива с четными номерами
4.3. Составьте программу вычисления среднего арифметического элементов с четными номерами....

Составить программу вычисления среднего арифметического элементов матрицы А(6Х3), удовлетворяющих условиям /а/≥10
Составить программу вычисления среднего арифметического элементов матрицы А(6Х3), удовлетворяющих...

2
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
18.12.2011, 15:55 2
Лучший ответ Сообщение было отмечено Archi86 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a:array[1..10] of integer;
i,n,k,s:integer;
sr:real;
begin clrscr;
k:=0;s:=0;
writeln('Kolichestvo elementov: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
end;
for i:=1 to n do
if i mod 2<>0 then
begin
inc(k);
s:=s+a[i];
end;
sr:=s/k;
writeln(sr:1:2);
readln
end.
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
18.12.2011, 15:56 3
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
uses crt;
var A: array [1..100] of integer;
    sa: real;
    n,i,k: integer;
begin
write ('Размер массива ');
readln(n);
sa:=0;
writeln ('Заполняем массив');
for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a[i]);
    if i mod 2=1 then
       begin
       sa:=sa+a[i];
       inc(k);
       end;
    end;
writeln ('Дан массив');
for i:=1 to n do
    write(a[i]:4);
writeln;
writeln ('Среднее арифметическое элементов, стоящих на нечетных местах =',sa/k:7:2);
readkey
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2011, 15:56
Помогаю со студенческими работами здесь

Составить программу вычисления среднего арифметического отрицательных значений и среднего геометрического положительных значений функции
Составить программу вычисления среднего арифметического отрицательных значений и среднего...

Функция вычисления среднего арифметического элементов масива
Функция вычисления среднего арифметического элементов масива в Pascal . Чет препробовал много...

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

Составить подпрограмму вычисления среднего арифметического элементов вектора
Составить подпрограмму вычисления средне арифметического элементов вектора Используя ее...


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

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

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