Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Составьте блок-схему алгоритма и программу вывода на экране всех нечетных двузначных чисел https://www.cyberforum.ru/ turbo-pascal/ thread410579.html Составьте блок-схему алгоритма и программу вывода на экране всех нечетных двузначных чисел	Получить вектор из элементов матрицы Turbo Pascal в картинке.
Turbo Pascal По номеру месяца вывести его название месяца https://www.cyberforum.ru/ turbo-pascal/ thread410561.html Дан номер месяца – целое число в диапазоне 1-12 (1- январь, 2 –февраль и т.д.). Вывести название месяца.	Turbo Pascal Массив. Определить число положительных элементов до первого отрицательного https://www.cyberforum.ru/ turbo-pascal/ thread410557.html 1. Шахматную доску представим в виде квадратной матрицы порядка 8. Даны натуральные числа m и n (1<=m<=8, 1<=n<=8), которые определяют место коня. Соответствующий элемент матрицы положим равным 2....
Turbo Pascal Программа для вычисления четных чисел натурального рядаюю Натуральный рад содержит K чисел.Полученное произведение разделить на K. K-вводится с клавиатуры,результат вывести на экран. Добавлено через 3 часа 28 минут Помогите пожалуйста!!!	Turbo Pascal Помогите пожалуйста написать программу с файлами на паскале... Написать программу, которая формирует файл записей данной структуры Type Passazhir=Record Imja:String; Reisa:String; Gruz:Integer; Ves:Integer; End; и определяет: - число пассажиров,... https://www.cyberforum.ru/ turbo-pascal/ thread410516.html
Turbo Pascal Определить максимальное значение https://www.cyberforum.ru/ turbo-pascal/ thread410515.html Даны действительные числа x,y,z.Получить:max(x+y+z;xyz) Заранее благодарю) :wall::)	Turbo Pascal Программу переделать с подпрограммами-процедурами. Грубо говоря мне нужно сделать ввод в одной подпрограмме-процедуре, вывод другой подпрограмме-процедуре, а обработка в третьей подпрограмме-процедуре. uses crt; var m, no: array of...
Turbo Pascal Мне нужно сделать так чтобы пользователь мог сам вводить размерность массива и выбирал какую строку поменять на какой столбец. Задание. В матрице поменять местами I-тую строку и J-тый столбец Добавлено через 58 минут Нашел, ошибки в первой программе. Поэтому для этой надо сделать. program lab10; const n=5; type... https://www.cyberforum.ru/ turbo-pascal/ thread410462.html	Turbo Pascal Найти максимальный четный элемент в массиве из всех положительных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread410415.html 1.Найти максимальный четный элемент в массиве из всех положительных элементов. 2.Вычислить сумму нечетных по значению элементов последней четверти массива. 3.Сортировать элементы третьей четверти...
Turbo Pascal Заменить нулями элементы массива между минимальным и максимальным, кроме них самих Дан одномерный массив А(N), где N – заданное натуральное число. Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальным и максимальным, кроме них...	Turbo Pascal Переписать в массив В все положительные элементы массива А, а в С все отрицательные ввести 2-МЕРНЫЙ массив А целого типа. сформировать 2 1-мерных массива В и С переписав в массив В все положительные элементы массива А ,а в С все отриц. "подобная задача на форуме есть,но здесь... https://www.cyberforum.ru/ turbo-pascal/ thread410396.html

Kodzaev

3029 / 1915 / 1649

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

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

18.12.2011, 15:55

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

18.12.2011, 15:55. Показов 6249. Ответов 2

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

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

Решение

Pascal

uses crt;
var a:array[1..10] of integer;
i,n,k,s:integer;
sr:real;
begin clrscr;
k:=0;s:=0;
writeln('Kolichestvo elementov: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
end;
for i:=1 to n do
if i mod 2<>0 then
begin
inc(k);
s:=s+a[i];
end;
sr:=s/k;
writeln(sr:1:2);
readln
end.

Вернуться к обсуждению:
Составьте программу вычисления среднего арифметического элементов с нечетными номерами Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.12.2011, 15:55

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

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

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

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

Составить программу вычисления среднего арифметического элементов матрицы А(6Х3), удовлетворяющих условиям /а/≥10
Составить программу вычисления среднего арифметического элементов матрицы А(6Х3), удовлетворяющих...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

18.12.2011, 15:55

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

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

Функция вычисления среднего арифметического элементов масива
Функция вычисления среднего арифметического элементов масива в Pascal . Чет препробовал много...

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

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

Наверх