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. (То...

Hikari

Хитрая блондиночка $)

1470 / 985 / 399

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

Сообщений: 3,785

28.02.2016, 15:12

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

28.02.2016, 15:12. Показов 1460. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

28.02.2016, 15:12

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

28.02.2016, 15:12

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

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

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

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

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

Наверх