Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
LLezar
2 / 0 / 0
Регистрация: 18.06.2013
Сообщений: 8
1

Задача: Дан массив. Вывести числа меньше среднего арифметического в порядке возрастания

18.06.2013, 18:50. Просмотров 551. Ответов 0
Метки нет (Все метки)

Писал программу задача которой:
"Дан массив целых чисел. Вывести элементы, которые меньше среднего арифметического в порядке возрастания. Если таких элементов нет - то вывести сообщение "Элементы не найдены".
Подумал вдруг кому пригодится.
P.S.
Там в комментариях рандомное заполнение массива. В задаче было ввести от руки, я для удобства делал рандом.
Код
Program srednarifm;
Uses CRT;
Var
  A:array [1..10] of integer;
  B:array [1..10] of integer;
  i,k,N,buf,j,m: integer;
  SRa: real;
Begin
  {Randomize;}
  Writeln ('Введите кол-во элементов в массиве');
  read (N);
  If N > 10 then begin
    While N > 10 do begin
      Writeln ('Кол-во элементов должно быть меньше 10, введите еще раз');
      read (N);
    end;
  end;
  SRa:= 0;
  Writeln ('Введите элементы массива');
  For i:=1 to N do begin
    {A[i]:= random (20)-10;}
    Write (i,' - й элемент - ');
    Read (A[i]);
    SRa:= SRa + A[i];
  end;
  SRa:= SRa / N;
  Writeln();
  k:=0;
  m:=1;
  Writeln ('Среднее арифмитическое - ', SRa);
  For i:=1 to N do begin
    If A[i] < SRa then begin
      B[m]:= A[i];
      m:=m + 1;
      k:=k+1;
    end;
  end;
  for i:=2 to k do begin
    for j:=k downto i do
    if B[j-1]>B[j] then
    begin
      buf:=B[j-1];
      B[j-1]:=B[j];
      B[j]:=buf;
    end;
  end;
  Writeln ('Исходный массив');
  For i:=1 to N do
    Write (A[i],'  ');
  Writeln();
  If k>0 then begin
    Writeln ('Обработанный массив');
      For i:=1 to k do
        Write (B[i],'  ');
  end
  Else
    Writeln ('Элементы не найдены');
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.06.2013, 18:50
Ответы с готовыми решениями:

Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического
Дан массив из указателей на целые числа вывести все числа данного массива...

Вывести номер каждой строки, в которой 2-ой элемент меньше среднего арифметического элементов строки
нужна помощь, помогите, кто знает для матрицы из трех столбцов и шести строк...

Дан массив A из n вещественных чисел. Вывести в порядке следования все отрицательные числа
Дан массив A из n вещественных чисел. Вывести в порядке следования все...

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

Дан массив А размера N. Упорядочить элементы, расположенные к первому отрицательного элемента в порядке возрастания
Дан массив А размера N. Упорядочить элементы, расположенные к первому ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2013, 18:50

Сравнить 3 числа и вывести в порядке возрастания
Вроде ниче такого но вызвала затруднения задача,тем более я синтаксис паскаля...

Вывести введённые 3 числа в порядке возрастания
помогите составить программу!

Вывести числа в порядке возрастания их значений.
Длинная последовательность двузначных чисел вводится клавиатуры. Признаком...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru