Дан список случайных целых чисел. Необходимо перевернуть список

Категория: Delphi/Pascal
2011-08-28 21:08:56

Дан список случайных целых чисел. Перевернуть список т.е. расставить все числа в обратном порядке. Подсчитать средне арифметическое его элементов. Создать два новых списка в одном из которых записать все элементы > 5, в другой все остальные элементы исходного списка.

code: #pascal
  1. const
  2.   N = 15;
  3. var
  4.   I, V: Integer;
  5.   Count2, Count3: Integer;
  6.   M1, M2, M3: array[1..N] of Integer;
  7. begin
  8.   // ====================================
  9.   // Заполнить исходный массив случайными числами
  10.   // Здесь числа будут от -50 до 49
  11.   // Этот кусок кода можно оформить по-разному
  12.   for I := 1 to N do
  13.     M1[I] := Random(100) - 50;
  14.   // ====================================
  15.  
  16.   // Поворот списка
  17.   for I := 1 to N div 2 do
  18.     begin
  19.       V := M1[I];
  20.       M1[I] := M1[N - I + 1];
  21.       M1[N - I + 1] := V;
  22.     end;
  23.  
  24.   // Заполнить дополнительные массивы
  25.   Count2 := 0; // Кол-во элементов в M2
  26.   Count3 := 0; // Кол-во элементов в M3
  27.   for I := 1 to N do
  28.     if M1[I] > 5 then
  29.       begin
  30.         Inc(Count2);
  31.         M2[Count2] := M1[I];
  32.       end
  33.     else
  34.       begin
  35.         Inc(Count3);
  36.         M3[Count3] := M1[I];
  37.       end;
  38.  
  39.   // Вывод результатов
Поделиться:

Похожие статьи:

теги: студенты, одномерный массив, массив, случайные числа, список, средне арифметическое