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

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

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

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

Листинг программы

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.

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

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