Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
trake
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 5
1

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

13.01.2013, 12:08. Просмотров 672. Ответов 2
Метки нет (Все метки)

Даны два произвольных массива R, L размерности k, n соответственно. Найти среднее арифметическое положительных элементов массива R и среднее арифметич
Товарищи помогите пожалуйста если не сложно написать программу
вообще не шарю(
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2013, 12:08
Ответы с готовыми решениями:

Найти среднее арифметическое положительных элементов массива
Добрый вечер помогите пожалуйста решить задачу и объяснить что к чему.... Вот...

Найти среднее арифметическое положительных элементов массива
Матрица :)Даны два произвольных массива R, L размера k, n соответственно....

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

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

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

2
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,720
Записей в блоге: 1
13.01.2013, 12:26 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
35
36
Var R,L:array[1..100] of integer;
    i,k,n,k1,k2:integer;
    sr1,sr2:real;
Begin
    write('Введите k: ');readln(k);
    writeln('Массив R');
    For i:=1 to k do
    Begin
      R[i]:=random(31)-15;
      write(R[i]:4);
      if R[i]>0 then
      Begin
        inc(k1);
        sr1:=sr1+R[i];
      End;
    End;
    writeln;
    write('Введите n: ');readln(n);
    writeln('Массив L');
    For i:=1 to n do
    Begin
      L[i]:=random(31)-15;
      write(L[i]:4);
      if L[i]>0 then
      Begin
        inc(k2);
        sr2:=sr2+L[i];
      End;
    End;
    writeln;
    if k1>0 then writeln('Среднее арифметическое массива R = ',sr1/k1:0:2)
     else writeln('Нету положительных в массиве R');
    if k2>0 then writeln('Среднее арифметическое массива L = ',sr2/k2:0:2)
     else writeln('Нету положительных в массиве L');
    readln;
End.
1
trake
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 5
13.01.2013, 12:32  [ТС] 3
Спасибо огромное)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2013, 12:32

Найти среднее арифметическое положительных элементов массива и умножить на него все элементы массива
С клавиатуры вводится произвольный одномерный массив типа Integer (не более 10...

Дан массив X(15). Найти среднее арифметическое положительных и отрицательных элементов массива R1 и R2
Дан массив X(15). Найти среднее арифметическое положительных и отрицательных...

Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива
Задан вектор А={Аn}. Найти среднее арифметическое модулей отрицательных и...


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

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

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