Question

Нужно сгенерировать 15 случайных чисел в массиве, а на интервале от -10 до 10 и найти количество чисел больше 2.(На языке программирования паскаль)

Answer 1

Если я правильно понял, то числа массива от - 10 до 10.

var i,k:integer;

a:array [1..20] of integer;

begin

randomize;

k:=0;

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

for i:=1 to 15 do

begin

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

if a[i]>2 then k:=k+1;

write(a[i], ' ') +;

end;

writeln('Количество чисел = ', k);

end.

Answer 2

Вот пример кода на языке программирования Pascal, который генерирует 15 случайных чисел в заданном интервале (-10 до 10) и подсчитывает количество чисел, которые больше 2:

pascalCopy code
program RandomNumbers;

var
  numbers: array[1..15] of Integer;
  count: Integer;
  i: Integer;

begin
  count := 0;

  { Генерация случайных чисел }
  Randomize;
  for i := 1 to 15 do
  begin
    numbers[i] := Random(21) - 10; // Генерация случайного числа от -10 до 10
    Write(numbers[i], ' '); // Вывод чисел для наглядности
    if numbers[i] > 2 then
      count := count + 1;
  end;

  Writeln;
  Writeln('Количество чисел больше 2: ', count);
end.

В этом примере мы используем генератор случайных чисел с помощью функции Randomize и функции Random, которая генерирует числа от 0 до 20 (21 значений) и затем сдвигает их в диапазон от -10 до 10 путем вычитания 10. Мы используем цикл for для заполнения массива numbers, а также для проверки каждого числа и подсчета количества чисел, больших чем 2. В конце программы выводится количество чисел, удовлетворяющих условию.