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

@gggf · Регистрация: 01.12.2019

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

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

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

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

Максимальный размер новых файлов: 200Мбайт, максимальное количество прикрепленных файлов: 1

@ZX Spectrum-128 · 04.02.2020, 11:24

Pascal

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.

@gggf 0 / 0 / 0 Регистрация: 01.12.2019 Сообщений: 40
		1
	Переписать во второй массив те элементы первого, которые больше среднего арифметического всех элементов массива 03.02.2020, 11:20. Показов 419. Ответов 1 Метки нет (Все метки) 1. Заполнить одномерный массив из N элементов (N - задано константой, N<=100) случайными вещественными числами на промежутке от A до B (A, B вводятся с клавиатуры, при этом -1000<=A<B<=1000). 2. Полученный массив вывести на экран (на одной строке, через пробел). 3. Переписать во второй массив те элементы первого, которые больше среднего арифметического всех элементов массива. 4. Вывести найденное среднее арифметическое и второй массив на экран (на одной строке, через пробел). Максимальный размер новых файлов: 200Мбайт, максимальное количество прикрепленных файлов: 1 0

Опции темы