Найти среднее арифметическое элементов вектора - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/6:

OmparO

	Найти среднее арифметическое элементов вектора 28.05.2011, 15:48. Показов 1164. Ответов 1 Метки нет (Все метки) Составьте пожалуйста программу: Дан вещественный вектор B, размерностью N. найти среднее арифметическое его элементов.

Лучшие ответы (1)

Сообщение: #1699619

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

28.05.2011, 15:48

Ответы с готовыми решениями:

Определить среднее арифметическое положительных и среднее арифметическое отрицательных элементов вектора
В целочисленном векторе vectorn определить среднее арифметическое положительных и отдельно...

Определить среднее арифметическое чётных элементов и среднее арифметическое нечётных элементов в массивах
Составить программу, которая определяет среднее арифметическое чётных элементов и среднее...

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

Holy_Metal

72 / 72 / 60

Регистрация: 14.12.2010

Сообщений: 201

28.05.2011, 20:37

Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const n = 10;
var b:array[1..n] of real;
    i:integer;
    sr:real;
begin
for i:=1 to n do
    begin
        b[i]:=random(100);
        sr:=sr+b[i];
        write(b[i]:3:2,' ');
    end;
sr:=sr/n;
writeln;
writeln('Среднее арифметическое = ',sr);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

28.05.2011, 20:37

Помогаю со студенческими работами здесь

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

Найти среднее арифметическое элементов вещественного вектора,начиная с первого элемента и заканчивая последним из всех наибольших элементов
Найти среднее арифметическое элементов вещественного вектора,начиная с первого элемента и...

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел
Дано 2 числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

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

Найти среднее арифметическое квадратов двух чисел и среднее арифметическое их модулей
1. Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

Наверх