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

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

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

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

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

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

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

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

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

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

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,645
Записей в блоге: 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 / 1
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

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

Вычислить среднее арифметическое положительных элементов массива
Задание №6. Задан массив А размером п. Вычислить среднее арифметическое...


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

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

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