сделать массив из 15 натуральных чисел с поддержкою датчика случайных чисел

Сделать массив из 15 естественных чисел с подмогою датчика случайных чисел и все элементы массива которые меньше 10 прирастить в два раза в промежутке
от 1 до 20. Вывести созданный массив и итог

Задать свой вопрос
Валерия Купрещенко
Паскаль?
Надежда Закалужская
нет не паскаль
Хохлачев Юрий
а что?
Мирослава
это массив в qb64
Юра Северинец
кто-нибудь напишите ответ срочно необходимо!!!
Денис
могу на паскале, логика та же
Андрей Ясолов
Хорошо
Мария Налогина
давай на паскале
1 ответ
Var A:array[1..15] of integer;
i:integer;
Begin
For i:= 1 to 15 do
    Begin
    A[i]:=random(20)+1;
    Write(A[i],' ')
    End;
WriteLn;
For i:= 1 to 15 do
    Begin
    if A[i]lt;10 then A[i]:=A[i]*2;
    Write(A[i],' ')
    End;
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт