Заполнить массив на 200 элементов случайными числами от 20 до 80 - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80: 1)Найти среднее арифметическое всех элементов. 2)Найти среднее арифметическое всех элементов меньше пятидесяти 3)Заменить наименьшие значения в массиве нулями Вывести полученный массив.

Решение задачи: «Заполнить массив на 200 элементов случайными числами от 20 до 80»

textual
Листинг программы
type TRangeA=1..200;
var
  a: array [TRangeA] of Integer;
  i, mn, s, s50, c50: Integer;
begin
  Randomize;
  Write('A ='); mn:=MaxInt;
  for i in TRangeA do begin
    a[i]:=20+Random(80-20+1); Write(' ',a[i]); s:=s+a[i];
    if a[i]<50 then begin s50:=s50+a[i]; Inc(c50); end;
    if mn>a[i] then mn:=a[i];
  end; WriteLn;
  WriteLn('Avg = ',s/(High(a)-Low(a)+1),', Avg 50 = ',s50/c50);
  Write('A''=');
  for i in TRangeA do begin if a[i]=mn then a[i]:=0; Write(' ',a[i]); end; WriteLn;
end.

Объяснение кода листинга программы

  1. Объявляется тип переменной TRangeA, который представляет диапазон целых чисел от 1 до 200.
  2. Объявляется массив a размером на TRangeA для хранения 200 случайных чисел.
  3. Объявляются переменные i, mn, s, s50, c50 для выполнения различных операций заполнения массива и вычисления средних значений.
  4. Вызывается функция Randomize для инициализации генератора случайных чисел.
  5. Выводится приглашение для ввода минимального значения массива a.
  6. В цикле for i in TRangeA выполняется заполнение массива a случайными числами от 20 до 80.
  7. Для каждого элемента массива вычисляется его сумма s, проверяется условие для подсчета суммы элементов меньше 50 и подсчитывается количество таких элементов c50.
  8. Если текущий элемент меньше максимального значения mn, то обновляется значение mn.
  9. После завершения цикла выводится количество заполненных элементов массива a.
  10. Вычисляется среднее значение s/(High(a)-Low(a)+1) и среднее значение для элементов меньше 50 s50/c50.
  11. В цикле for i in TRangeA происходит обнуление элементов массива a, равных минимальному значению mn.
  12. Выводится массив a с обнуленными элементами.
  13. Выводится среднее значение элементов массива a.
  14. Выводится среднее значение элементов массива a меньше 50.

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы