Составить программку для наполнения массива 20-ю целыми случайными числами, из [-50;50]

Составить программку для наполнения массива 20-ю целыми случайными числами, из [-50;50]

Задать свой вопрос
1 ответ
var
  A: array [1..20] of integer;
  i: byte;
begin
  randomize;
  for i := 1 to 20 do
    A[i] := random(101)-50;
  for i := 1 to 20 do
    writeln(A[i]);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт