Паскаль Использовать обязательно цикл while!!
Сначала создать массив из 10 случайных чисел в диапазоне от 1 до 100. Вывести все элементы массива. Затем за число и вывести все элементы массива, не превышающие это число.
Как можно скорее

ответ:Задание 2 Базовое ПО содержит в себе минимальный набор средств обеспечивающих работу компьютера: операционная система; операционная оболочка; сетевая операционная система. Сервисное ПО - это програмиы, и программные комплексы которые расширяют возможности базового ПО, и организовывают более удобную работу компьютера для пользователя: программы диагностики работо компьютера; антивирусные программы; програмиы обслуживания дисков; програмиы архивирования данных; програмиы обслуживания сети. Сервисное ПО можно приобрести отдельно от компьютера, базовое же уже встроено в компьютер, сервисное ПО обеспечивает более комфортную систему компьютера для пользователя, открывает больше возможностей. Объяснение:Поставь лайк ;)лайк - плюс респект∞

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.