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

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

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

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

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

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

Найти сумму и среднее арифметическое, общую сумму всех элементов массива
Помогите решить , очень надо Даны 2 одномерные масив состоящие их 9 элементов на интервале от -10...

Определить сумму указанных элементов, количество нечетных элементов и среднее арифметическое четных элементов массива
Дан двумерный массив целых чисел. Определить: 1. Сумму элементов массива, больших 30 2....

Вычислите сумму и среднее арифметическое элементов массива
В заданном массиве из 8 действительных чисел вычислите сумму и среднее арифметическое

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

1
CAPITAL OF ROCK!
1279 / 706 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2016, 13:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти сумму четных элементов массива и среднее арифметическое элементов с четными номерами
Элементы массива генерируются случайным образом. Элементы массива должны быть целочисленными в...

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

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

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


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

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

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