Заполнить массив случайными числами (положительными и отрицательными)из случайного

Заполнить массив случайными числами (положительными и отрицательными)
из произвольного спектра. Вывести сделанный массив на экран, расположив
элементы в одну строку через пробелы. Посчитать количество отрицательных,
положительных и нулевых элементов.

Задать свой вопрос
1 ответ
Var a: array [0..10] of integer;
    i, p, o, n: integer;
begin
     for i := 0 to 10 do
     begin
          a[i] := random(100) - 50;
          write(a[i], ' ');
          if (a[i] gt; 0) then inc(p);
          if (a[i] = 0) then inc(n);
          if (a[i] lt; 0) then inc(o);
     end;
     writeln();
     writeln(p, ' ', n, ' ', o);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт