Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Составить процедуру для создания матрицы А https://www.cyberforum.ru/ turbo-pascal/ thread1672351.html
Как составить процедуру Дан массив Х (8). Составить процедуру для создания матрицы А (8,8): program array1; uses crt; const n=8; var x:array of LongInt;
Turbo Pascal Исправить код
program P4; type school = record nm:integer; name: string; surname: string; god: integer; bukva:set of char= {Множество русских букв:} ; end;
Turbo Pascal В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел https://www.cyberforum.ru/ turbo-pascal/ thread1671989.html
Задан одномерный массив из 15 целых положительных и отрицательных чисел. Составить программу которая определяет количество соседств двух чисел одного знака и выводит на экран пары этих чисел
Turbo Pascal Найти среди элементов массива два элемента, модуль разности которых имеет наименьшее значение https://www.cyberforum.ru/ turbo-pascal/ thread1671629.html
Дан массив X(215). Найти среди его элементов два элемента, модуль разности которых имеет наименьшее значение
Как нарисовать свиток Turbo Pascal
Помогите
Turbo Pascal Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности Задана последовательность А1,......А20), не содержащая одинаковых элементов. 1. Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности. Под... https://www.cyberforum.ru/ turbo-pascal/ thread1671372.html
Turbo Pascal Вывести вторую и предпоследнюю строки файла https://www.cyberforum.ru/ turbo-pascal/ thread1671005.html
Ввести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщения нет решения
Turbo Pascal Найти трёхзначные числа, делящиеся нацело на сумму своих цифр
While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его.
Turbo Pascal Из текстового файла записать в файл целых чисел все числа кратные заданному K Добрый вечер! Помогите написать код на Паскале,. https://www.cyberforum.ru/ turbo-pascal/ thread1670714.html Turbo Pascal Задана строка S, найти все слова заданной длины и вывести их на экран Помогите решить -написать код на Паскале.Пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread1670706.html
Turbo Pascal Написать программу выводящую на экран снежинку из символа "*"
- Написать программу выводящую на экран снежинку из символа "*" (Через: Procedure/Function)
Turbo Pascal Определить число всевозможных "маршрутов" мячика с вершины на землю https://www.cyberforum.ru/ turbo-pascal/ thread1670367.html
На вершине лесенки, содержащей N ступенек, находится мячик, который начинает прыгать по ним вниз, к основанию. Мячик может прыгнуть на следующую ступеньку, на ступеньку через одну или через 2. (То...
Хитрая блондиночка $)
1470 / 985 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
28.02.2016, 15:12 0

Составьте функцию вычисления среднего значения элементов массива - Turbo Pascal - Ответ 8812208

28.02.2016, 15:12. Показов 1460. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
const n=100;
type TArr=array[1..n] of real;
function Avg(a:TArr):Real; var i:integer; s:real;
begin
 s:=0; for i:=1 to n do s:=s+a[i]; Avg:=s/n;
end;
 
var a:TArr; i:integer;
begin
 for i:=1 to n do readln(a[i]); Writeln(Avg(a)); readln;
end.
С коленки. Проверь

Вернуться к обсуждению:
Составьте функцию вычисления среднего значения элементов массива Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.02.2016, 15:12
Готовые ответы и решения:

Составьте программу вычисления среднего арифметического элементов массива
Составьте программу вычисления среднего арифметического элементов массива. Помогите Пожалуйста

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2016, 15:12
Помогаю со студенческими работами здесь

Создать функцию вычисления среднеарифметического значения элементов массива
Создать функцию (FUNCTION) вычисления среднеарифметического значения элементов массива Y с...

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru