Регистрация
Войти
Стать экспертом Правила
Информатика

ДАМ 20 поинтов, Составить программу, которая формирует одномерный массив случайными числами от - 100 до 100 и выводит его на экран

ОТВЕТЫ
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
    Begin
    A[i]:=random(201)-100;
    Write(A[i],' ');
    End;
End.
71
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам