Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Узнать количество элементов текстового файла https://www.cyberforum.ru/ turbo-pascal/ thread438009.html А можна ли узнать количество елементов текстового файла?! А если можна то как . google не помог ( спс.	Turbo Pascal Посчитать сумму рядов. Помогите пожалуйста с информатикой. Вообще ничего не понимаю. 1.) Посчитать сумму ряда: s=2+3+4+...+n. (количество членов вводится с клавиатуры). 2.) Посчитать сумму ряда:S=57/26+80/49+103/72 (количество слагаемых вводится с клавиатуры). 3.) Дано целое число N (>0). Используя один цикл, найти сумму 1 + 1/(1!)+ 1/(2!)+ 1/(3!)+ ... + 1/(N!) (выражение N! — N-факториал — обозначает...
Turbo Pascal Шифрование текста https://www.cyberforum.ru/ turbo-pascal/ thread437979.html Нужно создать программу, которая зашифровывает заданный текст с использованием 5 перемешанных алфавитов. В качестве исходных данных даны: исходный алфавит; m1,m2,m3,m4,m5-количество букв, на которые сдвигается каждый алфавит относительно исходного. Заранее спасибо за помощь))	Turbo Pascal принадлежит ли точка прямоугольнику? https://www.cyberforum.ru/ turbo-pascal/ thread437975.html (x1;y1) и (x2;y2) -координаты левой верхней и правой нижней вершины прямоугольника.Принадлежит ли точка A(x;y) прямоугольнику?ввод чисел не рандом.
Turbo Pascal Магический квадрат Помогите, пожалуйста, решить задачу. Дана целая квадратная матрица n-го порядка. Определить является ли она магическим квадратом, т. е. Такой, в которой суммы элементов во всех строках и столбцах одинаковы.	Turbo Pascal задача на двухмерный массив!!! https://www.cyberforum.ru/ turbo-pascal/ thread437945.html Найти сумму положительных элементов лежащих выше главной диагонали! Решать с помощью процедур!
Turbo Pascal В каждой строке переставить первый отрицательный элемент и последний положительный,если таких нет сообщить об этом В каждой строке переставить первый отрицательный элемент и последний положительный,если таких нет сообщить об этом! Решать с помощью процедур! https://www.cyberforum.ru/ turbo-pascal/ thread437942.html	Turbo Pascal Помогите. Надо составить блок схемы к программам, сам не могу. Готовлюсь к экзамену program LR8; uses crt, graph; var D,m,i,x,y:integer; A:array of integer; st:string; BEGIN D:=detect; m:=detect; randomize;
Turbo Pascal Найти матрицу R, при сложении L с которой была бы получена матрица с нулевыми диагональными элементами В процедуре заполните матрицу L четвертого порядка случайными числами. В основной программе найти матрицу R, при сложении L с которой была бы получена матрица с нулевыми диагональными элементами, а в функции проверить правильность результата program Red6; uses crt; const n=4; type mas=array of real; var L, R, sum:mas; i, j:integer; procedure matr(var x: mas); https://www.cyberforum.ru/ turbo-pascal/ thread437904.html	Turbo Pascal Найти количество столбов матрицы, в которых все элементы равны нулю https://www.cyberforum.ru/ turbo-pascal/ thread437883.html составить программу согласно следующему условию. Дана целочисленная матрица А размером M x N, где M и N заданные натуральные числа. Найти количество столбов в которых все элементы равны нулю.
Turbo Pascal Вычисления,ряд. Подскажите пожалуйста задачку,заранее спасибо! Дано действительное число х.вычислить: x-(x^3/3) (x^5/5)-(x^7/7) (x^9/9)-(x^11/11) (x^13/13). Если можно с объяснением.	Turbo Pascal Найти сумму элементов массива, которые являются простыми числами и принадлежат интервалу от 5 до 1000 https://www.cyberforum.ru/ turbo-pascal/ thread437879.html дан одномерный массив A, состоящий из N элементов. Найти сумму элементов массива, которые являются простыми числами и принадлежат интервалу от 5 до 1000

Фаер

792 / 398 / 260

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

Сообщений: 786

Записей в блоге: 29

30.01.2012, 17:05

Найти среднее значение элементов массива стоящих на нечетных местах - Turbo Pascal - Ответ 2441818

30.01.2012, 17:05. Показов 1594. Ответов 6

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

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

Решение

№1

Pascal

Program Mas;
Uses crt;
Var A:array[1..10] of real; i,kol:integer; sr,sum:real;
Begin
ClrScr;
Writeln('Input elements:');
For i:=1 to 10 do
 Begin
  Readln(A[i]);{ввод элементов массива}
  If odd(i)=true then  {проверка номера на чётность}
   Begin
    sum:=sum+A[i]; kol:=kol+1;
   End;
 End;
sr:=sum/kol;  
Writeln('sr arif:',sr:2:2);
Readln;
End.

Вернуться к обсуждению:
Найти среднее значение элементов массива стоящих на нечетных местах Turbo Pascal

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.01.2012, 17:05

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

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах
Помогите , пожалуйста, срочно надо написать программу( программа управляется с помощью меню В...

Найти максимальный из элементов массива A[1 . N], стоящих на нечетных местах
Найти максимальный из элементов массива A, стоящих на нечетных местах.

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Найти сумму и количество четных элементов массива Р(13), стоящих на нечетных местах

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Задан одномерный массив из 17 целых элементов, заполненый случайным образом в диапазоне от 7 до...

	30.01.2012, 17:05

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.01.2012, 17:05

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

Дан массив из 15 элементов A(15). Найти количество элементов массива меньших 0, и стоящих на нечетных местах
Дан массив из 15 элементов A(15). Найти количество элементов массива меньших 0, и стоящих на...

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

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все элементы, стоящие на...

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

Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах
дан вектор, имеющий n (1≤n≥100) целых элементов. напиши программу, которая находит среднее...

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...

Наверх