Заполнить массив А(21) случайными числами в диапазоне от -10 до 10.

Заполнить массив А(21) случайными числами в спектре от -10 до 10. Вывести его на экран.(Pascal ABC).

Задать свой вопрос
1 ответ

const
n = 21;

var
a: array [ 1..n ] of integer;
i: integer;

begin

cls;
writeln ( Заполнение массива случайными числами в диапазоне от -10 до 10. );
randomize;
for i := 1 to n do
begin
a[i] := random ( 20 ) - 10;
writeln( a[, i, ] = , a[i] );
end;
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт