Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
worik
0 / 0 / 0
Регистрация: 29.11.2016
Сообщений: 8
1

Процедура: вернуть сумму и среднее арифметическое элементов массива

26.12.2016, 19:21. Просмотров 814. Ответов 1
Метки нет (Все метки)

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

С помощью этой процедуры найдите сумму и произведение элементов каждого из 5 массивов,заданных случайным образом.

в одно строке элементы массива через пробел в , следующей полученные значения
Например:
1 3 2 7 5
Сумма=18 ср.фрифм.=3.6
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2016, 19:21
Ответы с готовыми решениями:

Вычислить сумму и среднее арифметическое элементов массива
Помогите, пожалуйста, с кодом. Заранее спасибо! 1. Составить программу, в которой массив...

Посчитать значение максимума, минимума, сумму и среднее арифметическое элементов массива
Распечатать массив из 10-ти случайных элементов в диапозоне от -100 до 100 по формуле. Посчитать...

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

Найти сумму и среднее арифметическое арифметическое положительных четных элементов
Массив целого типа, 5 элементов, вводится с клавиатуры. Выводится в столбец. Найти сумму и среднее...

Получите сумму и среднее арифметическое всех элементов массива
Получите сумму и среднее арифметическое всех элементов массива.

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
Завершенные тесты: 2
27.12.2016, 13:01 2
Лучший ответ Сообщение было отмечено worik как решение

Решение

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
37
38
39
40
41
42
43
44
45
46
const
    NMAX = 250;
type
    TSize = 1..NMAX;
    TVector = Array[TSize] Of ShortInt;
procedure GenerateAndPrint(var ar: TVector; var len: TSize);
var
    i: TSize;
begin
    Write('Введите количество элементов вектора (1..', NMAX, '): ');
    ReadLn(len);
    for i := 1 to len do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
    end;
    WriteLn;
end;
 
procedure SumAndAvr(const ar: TVector; const len: TSize; var sum: Integer; var avr: Real);
var
    i: TSize;
begin
    sum := 0;
    for i := 1 to len do
        Inc(sum, ar[i]);
    avr := sum/len;
end;
 
var
    a, b, c, d, e: TVector;
    na, nb, nc, nd, ne: TSize;
    sum: Integer;
    avr: Real;
begin
    GenerateAndPrint(a, na); SumAndAvr(a, na, sum, avr);
    WriteLn('sum=', sum, ' avr=', avr:0:2);
    GenerateAndPrint(b, nb); SumAndAvr(b, nb, sum, avr);
    WriteLn('sum=', sum, ' avr=', avr:0:2);
    GenerateAndPrint(c, nc); SumAndAvr(c, nc, sum, avr);
    WriteLn('sum=', sum, ' avr=', avr:0:2);
    GenerateAndPrint(d, nd); SumAndAvr(d, nd, sum, avr);
    WriteLn('sum=', sum, ' avr=', avr:0:2);
    GenerateAndPrint(e, ne); SumAndAvr(e, ne, sum, avr);
    WriteLn('sum=', sum, ' avr=', avr:0:2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2016, 13:01

Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива.
Задан массив вещественных чисел М длины k. Найти сумму и среднее арифметическое n (n&lt;=k) самых...

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

Количество элементов одномерного массива меньших, чем среднее арифметическое значение всех элементов массива
Нужно написать программу и блок-схему к ней. Алгоритм поиска количества элементов одномерного...


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

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

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