Question

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

Answer 1

Среднее арифметическое по условию не выводит.

program v1;

var a:array[0..30]of integer;  

i,n,sum:integer;

t:real;

begin

 sum:=0;

 writeln('Введите размерность матрицы: '); readln(n);

 randomize;

for i:=1 to n do a[i]:=random(20)-10;                            

write('Значение матрицы: ');                                      

for i:=1 to n do write(a[i]:5); writeln;  

for i:=1 to n do begin  

sum:=sum+a[i];

t:= sum/n ;

 end;

 for i:=1 to N do if a[i]>t then write(a[i]:3);

   writeln;

end.

Answer 2

Вот пример программы на Pascal, которая выполняет указанные вами действия:

pascalCopy code
program RandomNumbers;

const
  N = 10; // Количество случайных чисел

var
  Numbers: array[1..N] of integer;
  i, Sum, Count, Average: integer;
  RandomNum: integer;

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

  // Заполняем массив случайными числами от -10 до 10
  for i := 1 to N do
  begin
    RandomNum := Random(21) - 10; // Генерируем случайное число от -10 до 10
    Numbers[i] := RandomNum;
  end;

  // Выводим массив на экран
  writeln('Массив случайных чисел:');
  for i := 1 to N do
  begin
    write(Numbers[i], ' ');
  end;
  writeln;

  // Вычисляем среднее арифметическое
  Sum := 0;
  for i := 1 to N do
  begin
    Sum := Sum + Numbers[i];
  end;
  Average := Sum div N;

  // Вычисляем количество чисел больших среднего арифметического
  Count := 0;
  for i := 1 to N do
  begin
    if Numbers[i] > Average then
      Count := Count + 1;
  end;

  writeln('Среднее арифметическое: ', Average);
  writeln('Количество чисел больших среднего: ', Count);

  readln;
end.

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