Question

Язык паскаля. Найти среднее значение всех положительных чисел из 130 заданных чисел

Answer 1

Var i:Integer;s:real;

A:array[1..130]of integer;

Begin

S:=0;

For i:=1 to 130 do begin

A[i]:=random(100);

S:=s+A[i];

End;

S:=s/130;

Write(s);

End.

Answer 2

Для нахождения среднего значения всех положительных чисел из 130 заданных чисел на языке Паскаль, вы можете использовать следующий код:

pascalCopy code
program AveragePositiveNumbers;

var
  numArray: array[1..130] of Integer;
  count, sum, i: Integer;
  average: Real;

begin
  // Ввод 130 чисел
  writeln('Введите 130 чисел:');
  for i := 1 to 130 do
  begin
    readln(numArray[i]);
  end;

  // Инициализация переменных
  count := 0;
  sum := 0;

  // Находим сумму и количество положительных чисел
  for i := 1 to 130 do
  begin
    if numArray[i] > 0 then
    begin
      sum := sum + numArray[i];
      count := count + 1;
    end;
  end;

  // Вычисляем среднее значение
  if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее значение положительных чисел: ', average:0:2);
  end
  else
  begin
    writeln('В массиве нет положительных чисел.');
  end;
end.

Этот код позволит вам ввести 130 чисел с клавиатуры и найдет среднее значение всех положительных чисел в этом наборе. Результат будет выведен на экран с точностью до двух знаков после запятой. Если в массиве нет положительных чисел, будет выведено сообщение об этом.