Сформировать и вывести произвольный массив из 50 вещественных чисел - Turbo Pascal

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

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

Решение задачи: «Сформировать и вывести произвольный массив из 50 вещественных чисел»

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

const
  n = 50;
 
var
  a, b, c: array[1..n] of real;
  i, k1, k2: byte;
  s1, s2: real;
 
begin
  randomize;
  writeln('Array A');
  k1 := 0; k2 := 0;
  for i := 1 to n do
  begin
    a[i] := random * 20 - 10;
    write(a[i]:8:3);
    if a[i] < 0 then begin
      inc(k1);
      b[k1] := sqr(a[i]);
      s1 := s1 + b[k1];
    end else
    if a[i] > 0 then begin
      inc(k2);
      c[k2] := ln(a[i]);
      s2 := s2 + c[k2];
    end;
  end;
  writeln;
  writeln('Array B:');
  for i := 1 to k1 do write(b[i]:8:3); writeln;
  writeln('Array C:');
  for i := 1 to k2 do write(c[i]:8:3); writeln;
  writeln('Sum of Array B = ', s1:0:3, '; Avarage = ', s1 / k1:0:3);
  writeln('Sum of Array C = ', s2:0:3, '; Avarage = ', s2 / k2:0:3);
  readln;
end.

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

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

Объявляются переменные: n (количество элементов в массиве), a, b, c (массивы для хранения чисел), i, k1, k2 (переменные для отслеживания индексов элементов), s1, s2 (счетчики суммы и среднего значения).
Задается начальное значение для генератора случайных чисел.
Выводится заголовок Array A.
Задаются начальные значения для счетчиков k1 и k2, а также начальные значения для массивов b и c.
В цикле for происходит заполнение массива a случайными числами. Если число положительное, увеличивается k2, вычисляется логарифм числа, добавляется к сумме s2, и увеличивается k2. Если число отрицательное, увеличивается k1, вычисляется квадрат числа, добавляется к сумме s1, и увеличивается k1.
После завершения цикла выводится заголовок Array B.
Выводится содержимое массива b.
Выводится заголовок Array C.
Выводится содержимое массива c.
Выводится сумма массива b и среднее значение.
Выводится сумма массива c и среднее значение.
Выводится сообщение Readln, чтобы дождаться ввода пользователя перед завершением программы. Таким образом, данный код выполняет следующие действия:
Генерирует случайные числа для заполнения массива.
Вычисляет сумму и среднее значение для каждого массива.
Выводит содержимое массивов и их сумму и среднее значение.