Question

ГДЗ Самостоятельные и контрольные работы по Информатике 9 класс Босова

ВОПРОС В среде программирования создайте массив a из десяти случайных целых чисел, принадлежащих полуинтервалу [0; 25). Выведите полученный массив на экран. Подсчитайте k - количество элементов массива, значение которых превышает 12.

Ответы 1

Порядок вывода комментариев:

Accepted Answer

Код

program Zad1Nica;

const
  Size = 10;

var
  a: array[1..Size] of Integer;
  i, k: Integer;

begin
  Randomize;
  k := 0;

  // Заполнение массива и вывод его на экран
  for i := 1 to Size do
  begin
  a[i] := Random(25);
  Write(a[i]:5);

  // Подсчет суммы положительных и количества отрицательных элементов
  if a[i] > 12 then
  k := k + 1;
  end;

  // Вывод результатов
  Writeln;
  Writeln('Количество элементов массива, значение которых превышает 12: ', k);
  Readln;
end.