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

0 голосов
74 просмотров

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


Информатика (57 баллов) | 74 просмотров
0

Паскаль?

0

нет не паскаль

0

а что?

0

это массив в qb64

0

кто-нибудь напишите ответ срочно нужно!!!

0

могу на паскале, логика та же

0

ХОРОШО

0

давай на паскале

Дан 1 ответ
0 голосов
Правильный ответ

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]<10 then A[i]:=A[i]*2;<br>    Write(A[i],' ')
    End;
End.

(34.0k баллов)