Question

Дан целочисленный массив, заданный датчиком случайных чисел в интервале -10 до 10. Найти среднее арифметическое положительных элементов массива Pascal Через Var решать)

Answer 1

Ответ:

program z1;

var a:array [1..10] of integer;

i,s,k:integer;

begin

s:=0;

k:=0;

write ('Массив ');

for i:= 1 to 10 do

begin

a[i]:=random(21)-10;

write(a[i],'  ');

if a[i]>0 then

begin

s:=s+a[i];

k:=k+1

end

end;

writeln;

writeln ('Среднее арифметическое положительных элементов ',s/k)

end.

Answer 2

Конечно, я могу помочь вам решить эту задачу на языке Pascal с использованием переменных. Вот пример программы, которая решает вашу задачу:

pascalCopy code
program AveragePositiveElements;

var
  arr: array[1..100] of Integer;
  size, i, count, sum: Integer;
  average: Real;

begin
  { Инициализация генератора случайных чисел }
  Randomize;

  { Ввод размера массива }
  writeln('Введите размер массива:');
  readln(size);

  { Заполнение массива случайными числами }
  for i := 1 to size do
    arr[i] := Random(21) - 10;

  { Вычисление среднего арифметического положительных элементов }
  count := 0;
  sum := 0;
  for i := 1 to size do
  begin
    if arr[i] > 0 then
    begin
      count := count + 1;
      sum := sum + arr[i];
    end;
  end;

  if count > 0 then
    average := sum / count
  else
    average := 0;

  { Вывод результата }
  writeln('Среднее арифметическое положительных элементов массива: ', average:0:2);

  readln;
end.

В этой программе мы используем переменные arr для хранения массива, size для хранения размера массива, i для итерации по массиву, count для подсчета количества положительных элементов, sum для суммирования положительных элементов и average для хранения среднего арифметического.

Программа сначала запрашивает у пользователя размер массива. Затем она заполняет массив случайными числами в интервале от -10 до 10. После этого она проходит по всем элементам массива и считает количество положительных элементов и их сумму. Затем вычисляется среднее арифметическое, которое выводится на экран.

Обратите внимание, что в этой программе мы ограничиваем размер массива до 100 элементов (задано array[1..100] of Integer). Вы можете изменить это значение в зависимости от ваших потребностей.