составьте программку которая сформировывает массив из 20 случайных чисел от -10

Составьте программку которая сформировывает массив из 20 случайных чисел от -10 до 10 и обретает отрицательные элементы

Задать свой вопрос
1 ответ
Program p1;
Var i:integer;
      a:array[1..20] of integer;
Begin for i:=1 to 20 do
  begin
   a[i]:=random(-10,10);
   write(a[i],' ');
  end;
 writeln;
 for i:=1 to 20 do
  if a[i]lt;0 then write(a[i],' ');
End.

проверь работает либо нет,нет способности проверить просто
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт