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

@Lifelover22 · Регистрация: 17.10.2019

Author24 — интернет-сервис помощи студентам

Дан одномерный массив, принадлежащий промежутку от a до b. Вывести на экран массив, найти и вывести среднее арифметическое чисел и количество положительных чисел, стоящих на местах, кратных 4

@ValentinNemo · 28.11.2019, 01:47

Сообщение от Lifelover22

Дан одномерный массив, принадлежащий промежутку от a до b.

Вы написали совершенно непонятное задание. Поэтому предлагается две программы.
Первая программа сделана, если понимать промежуток a и b, как промежуток значений элементов.
Вторая программа сделана, если понимать промежуток, как индексы элементов. И это количество элементов: от индекса a до индекса b и считается данным массивом. Нужную программу выберете сами.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program Project1;
var
  a,b: integer; {Переменные для хранения значений левой и правой границ промежутка}
  c: array [1..100] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; { Переменная для хранения значения суммы}
  g: integer; { Переменная для подсчета количества заданных элементов}
  flag: boolean; { Логическая переменная для корректного ввода значений.}
begin
  write('Введите значение левой границы промежутка: ');
  Readln(a);
  write('Введите значение правой границы промежутка: ');
  Readln(b);
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
      repeat
        write('Введите значение ',i,' элемента: ');
        Readln(c[i]);
        if (c[i] >= a) and (c[i] <= b) then
          flag:= true
        else
          begin
            writeln('Число не принадлежит отрезку [',a,';',b,']. Введите число снова.');
            flag:= false;
          end;
      until flag;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(c[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  g:= 0;
  sum:= 0;
  for i:= 1 to n do
    begin
      sum:= sum + c[i];
      if (c[i] > 0) and (i mod 4 = 0) then
        inc(g);
    end;
  writeln('Среднее арифметическое чисел: ', (sum/n):0:2 );
  writeln('Количество положительных чисел, стоящих на местах, кратных 4: ', g);
  Readln;
end.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
program Project1;
 
var
  a,b: integer; {Переменные для хранения значений левой и правой границ промежутка}
  c: array [1..100] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; { Переменная для хранения значения суммы}
  g: integer; { Переменная для подсчета количества заданных элементов}
 
begin
 
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  write('Введите значение индекса элемента левой границы промежутка (не меньше 1): ');
  repeat
    Readln(a);
  until a >= 1;
  write('Введите значение индекса элемента правой границы промежутка (не больше ',n,'): ');
  repeat
    Readln(b);
  until b <= n;
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(c[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(c[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  writeln('Массив  из элементов промежутка: ');
  for i:= a to b do
    begin
      write(c[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  g:= 0;
  sum:= 0;
  for i:= a to b do
    begin
      sum:= sum + c[i];
      if (c[i] > 0) and (i mod 4 = 0) then
        inc(g);
    end;
  writeln;
  writeln('Среднее арифметическое чисел: ', (sum/n):0:2 );
  writeln('Количество положительных чисел, стоящих на местах, кратных 4: ', g);
  Readln;
end.

@Lifelover22 · 28.11.2019, 11:04 **[ТС]**

Не, вообщем надо чтобы человек вводил число допустим от 60 до 120, и у него выводился автоматически массив вот так: 60, 61, 62 ... 120

@ValentinNemo · 28.11.2019, 15:56

Lifelover22, вы сейчас смогли более-менее толково объяснить что вам нужно, а в первом задании - не смогли?

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
32
33
34
35
36
37
program Project1;
var
  a,b: integer; {Переменные для хранения значений левой и правой границ промежутка}
  c: array [1..100] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; { Переменная для хранения значения суммы}
  g: integer; { Переменная для подсчета количества заданных элементов}
  flag: boolean; { Логическая переменная для корректного ввода значений.}
begin
  write('Введите значение левой границы промежутка: ');
  Readln(a);
  write('Введите значение правой границы промежутка: ');
  Readln(b);
  n:= b - a + 1;
  for i:= 1 to n do
    c[i]:= a + i - 1;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(c[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  g:= 0;
  sum:= 0;
  for i:= 1 to n do
    begin
      sum:= sum + c[i];
      if (c[i] > 0) and (i mod 4 = 0) then
        inc(g);
    end;
  writeln;
  writeln('Среднее арифметическое чисел: ', (sum/n):0:2 );
  writeln('Количество положительных чисел, стоящих на местах, кратных 4: ', g);
  Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .	Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .
Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .

@Lifelover22 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 77

	Найти и вывести среднее арифметическое чисел и количество положительных чисел, стоящих на местах, кратных 4 28.11.2019, 00:30. Показов 1405. Ответов 3 Метки нет (Все метки) Дан одномерный массив, принадлежащий промежутку от a до b. Вывести на экран массив, найти и вывести среднее арифметическое чисел и количество положительных чисел, стоящих на местах, кратных 4 0

@Lifelover22 1 / 1 / 0 Регистрация: 17.10.2019 Сообщений: 77
	28.11.2019, 11:04 [ТС]
	Не, вообщем надо чтобы человек вводил число допустим от 60 до 120, и у него выводился автоматически массив вот так: 60, 61, 62 ... 120 0

Опции темы

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

Решение