Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
trake
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 5
#1

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

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

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

Найти среднее арифметическое положительных элементов массива - Turbo Pascal
Добрый вечер помогите пожалуйста решить задачу и объяснить что к чему.... Вот сама Задача: Дан массив A(20), найти среднее арифметическое...

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

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

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

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

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

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

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

Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы - Turbo Pascal
Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы. Uses CRT; type matr = array of...

Вычислить среднее арифметическое положительных элементов массива - Turbo Pascal
Задание №6. Задан массив А размером п. Вычислить среднее арифметическое положительных элементом. Вычислить a1 • a2 + a2 • a3 + + an -1 •...

Определить среднее арифметическое положительных элементов массива - Turbo Pascal
Нужно составить подпрограммы для ввода массива с клавиатуры, для выполнения вычислений п. 1 и 2 и для вывода на печать массива. ...


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

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

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