0 / 0 / 0
Регистрация: 01.12.2019
Сообщений: 40
1

Переписать во второй массив те элементы первого, которые больше среднего арифметического всех элементов массива

03.02.2020, 11:20. Показов 601. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Заполнить одномерный массив из N элементов (N - задано константой, N<=100) случайными вещественными числами на промежутке от A до B (A, B вводятся с клавиатуры, при этом -1000<=A<B<=1000).

2. Полученный массив вывести на экран (на одной строке, через пробел).

3. Переписать во второй массив те элементы первого, которые больше среднего арифметического всех элементов массива.

4. Вывести найденное среднее арифметическое и второй массив на экран (на одной строке, через пробел).

Максимальный размер новых файлов: 200Мбайт, максимальное количество прикрепленных файлов: 1
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2020, 11:20
Ответы с готовыми решениями:

Непонятная/странная/сложная/интересная на двумерные массивы.
В данном двумерном массиве целого типа посчитать количество нечетных элементов, находящихся в её...

Сложная задача на перестановки
Перестановкой размера n называется массив ⟨a1, a2, . . . , an⟩ различных чисел от 1 до n. Каждое...

Задача не сложная на тему строки.
Создайте программу, которая запрашивает тестовую строку и заменяет все слоги &quot;ра&quot; на &quot;пар&quot;....

Сложная задача(для меня во вском случае).
На паскаль. Через множества. Даны следующие описания переменных: type город=(a,b,c,d,e,f,g,h); ...

1
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
04.02.2020, 11:24 2
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
const
  n = 100;
 
type
  tmas = array[1..n] of real;
 
var
  i, k: longint;
  x, y: tmas;
  a, b: integer;
  sr: real;
 
begin
  k := 0;
  sr := 0;
  write('Введите А, B: ');
  readln(a, b);
  Writeln('Исходный массив:');
  for i := 1 to n do
  begin
    x[i] := a + Random(b - a + 1);
    Write(x[i], ' ');
    sr := sr + x[i];
  end;
  sr := sr / n;
  Writeln;
  for i := 1 to n do
    if x[i] > sr then
    begin
      inc(k);
      y[k] := x[i];
    end;
  Writeln('Среднее: ', sr);
  Writeln('Новый массив:');
  for i := 1 to k do
    Write(y[i], ' ');
end.
0
04.02.2020, 11:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2020, 11:24
Помогаю со студенческими работами здесь

Требуется составить единый график наладки всех станков (считать, что более сложная наладка занимает большее время). Массивы
Мастеру выданы два графика наладки имеющихся в цехе станков и только что прибывших в цех, где...

Простая но сложная задача-ПОМОГИТЕ! массивы на php
вот задали:cry:, а я только учусь php ВОТ ОНО: найти сумму элементов двумерного массива: 1)-по...

Сложная zadacha на массивы,(надо на зачет) :)
Пусть известны данные многолетних наблюдений за количеством выпавших осадков на определенной...

Сложная задача
Привет всем. Есть такая задача, которую никак не могу решить: товары отгружаются дистрибьюторам...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru