Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Объектно-ориентированное программирование, создать класс TStudent На PascalABC.net с помощью инкапсуляции создать класс TStudent, который позволяет хранить информацию о студенте группы: ФИО студента, его успеваемость по трем предметам в семестре , считать средний... https://www.cyberforum.ru/ pascalabc-net/ thread2521912.html Задача со строками PascalABC.NET
Помогите с кодом, уже целую вечность пыхчу. Задание 1 Строка – это правильное арифметическое выражение, содержащее только натуральные числа и знаки арифметических операций между ними (+, -, *, /)....
PascalABC.NET Программирование алгоритмов итеративной циклической структуры Вычислить и вывести те члены последовательности 1, 𝑥^2/2! ,𝑥^3/3! ,…x^𝑛/𝑛! ,… значения которых больше е=0.001, при х=0.7 https://www.cyberforum.ru/ pascalabc-net/ thread2521788.html PascalABC.NET Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить самостоятельно Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить самостоятельно. Вычислить сумму положительных элементов каждой строки двумерного массива. https://www.cyberforum.ru/ pascalabc-net/ thread2521752.html
PascalABC.NET Составить программу на Паскале для обработки массива Z=(2.13; 14.1; −13.66; 0; −2; −16.5; 12; 142.3; 122; 111)
Составить программу на Паскале для обработки массива Z=(2.13; 14.1; −13.66; 0; −2; −16.5; 12; 142.3; 122; 111) при b = 3. Посчитать количество и напечатать номера элементов, которые больше b, с... 		PascalABC.NET Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень нечетные числа https://www.cyberforum.ru/ pascalabc-net/ thread2521749.html
Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести в 3 степень нечетные числа.
PascalABC.NET Массивы Pascal Дан массив натуральных чисел А(N), значения элементов которого лежат в диапазоне . Найти: а) сумму элементов массива, цифровая запись которых дает сумму цифр, кратную 8 б) максимальный элемент... https://www.cyberforum.ru/ pascalabc-net/ thread2521660.html PascalABC.NET Даны три штыря
Даны три штыря, на одном из них расположены диски разного размера(от большего к мешьшему). Необходимо переставить все диски на другой штыр, за один раз можно взять один диск. Решить при помощи...
PascalABC.NET Задать тип массива через переменную https://www.cyberforum.ru/ pascalabc-net/ thread2521421.html
Народ, нужна ваша помощь. В общем, ситуация такая: В зависимости от условий, необходимо проинициализировать массив как byte, word, longword или как uint64. Создать 4 разных массива не катит. Нужно,... 		PascalABC.NET Выдаёт ошибку program upr8_2_v; uses crt,GraphABC; const A:array of real=(82.5,60.9,60.4,58.8,43.8,38.1,16.3); B:array of... https://www.cyberforum.ru/ pascalabc-net/ thread2521348.html
PascalABC.NET Дана квадратная матрица n*n
Дана квадратная матрица n*n, найти сумму и количество положительных элементов расположенных под главной диагональю 		PascalABC.NET Массив: Определить количество строк, не содержащих ни одного нулевого элемента Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента 2) максимальное из чисел, встречающихся в заданной матрице более одного раза ... https://www.cyberforum.ru/ pascalabc-net/ thread2521212.html
12 / 8 / 5
Регистрация: 15.10.2019
Сообщений: 25
30.10.2019, 22:22 0

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел - PascalABC.NET - Ответ 13950063

30.10.2019, 22:22. Показов 934. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

function Summ(arr: array of integer; D: integer): real;
begin
  var k := 0;
  for var i := 0 to arr.Length - 1 do
    if arr[i] > D then begin Result += arr[i]; Inc(k) end   
    else if (i mod 2 = 1) then begin Result += arr[i]; Inc(k) end;
  Result := Result / k;
end;
 
var
  k: array of integer;
  D, F, n, elm: integer;
 
 
begin
  write('Введите D - '); readln(D);
  write('Введите F - '); readln(F);
  write('Введите кол-во элементов - '); readln(elm);
  
  SetLength(k, elm);
  
  for var i := 0 to k.Length - 1 do
  begin
    read(k[i]);
    if k[i] < F then Inc(n);
  end;
  writeln();
  writeln(' Среднее арефметическое чисел, больших заданного D и стоящих на нечетных местах - ', Summ(k, D));
  writeln('Кол-во чисел меньше F - ', n);
  
end.


Вернуться к обсуждению:
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 30.10.2019, 22:22
Готовые ответы и решения:

Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших N
Есть задача &quot;Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и...

Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X
Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел,...

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

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

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

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

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

Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного
1.Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и...

Для одномерного массива чисел подсчитать количество чисел, больших минимального и стоящих на нечетных местах
Помогите разобраться с примером. Для одномерного массива чисел подсчитать количество чисел, больших...

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

Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах
Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих...

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