6 Просмотров

Задание:

Напишите программу на языке Pascal
Массив из 10 чисел задан случайным образом числами от -30 до 30 (вывести в столбец). Найти среднее арифметическое положительных чисел этого массива.

Ответ на задание:

program SredneeArifmeticheskoe;

var
  A: array[1..10] of integer;
  i, Sum, Count: integer;
  Average: real;

begin
  Randomize;
  for i := 1 to 10 do
  begin
    A[i] := Random(-30, 30);
    Writeln(A[i]);
  end;

  Sum := 0;
  Count := 0;
  for i := 1 to 10 do
  begin
    if A[i] > 0 then
    begin
      Sum := Sum + A[i];
      Inc(Count);
    end;
  end;

  if Count > 0 then
    Average := Sum / Count
  else
    Average := 0;

  Writeln('Среднее арифметическое положительных чисел:', Average);
end.

Объяснение:

• A – массив из 10 целых чисел.
• i – переменная цикла.
• Sum – переменная для хранения суммы положительных чисел.
• Count – переменная для хранения количества положительных чисел.
• Average – переменная для хранения среднего арифметического.

Алгоритм:

1. Заполняем массив A случайными числами от -30 до 30.
2. Перебираем все элементы массива A.
3. Если элемент A[i] больше 0, то:
   • Добавляем A[i] к Sum.
   • Увеличиваем Count на 1.
4. Если Count больше 0, то:
   • Вычисляем среднее арифметическое Average как Sum / Count.
5. Выводим на экран среднее арифметическое Average.