Составьте программу, которая формирует массив из 15 случайных целых чисел от -20 до 20 и четные числа делит на 2, а нечетные умножает на 3 PascalABC
Составьте программу, которая формирует массив из 15 случайных целых чисел от -20 до 20 и четные числа делит на 2, а нечетные умножает на 3 PascalABC
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program RandomArray;
var
arr: array[1..15] of integer;
i: integer;
begin
Randomize;
for i := 1 to 15 do
if arr[i] mod 2 = 0 then // если число четноеbegin
arr[i] := Random(41) - 20; // генерируем случайное число от -20 до 20
arr[i] := arr[i] div 2 // делим на 2
else
arr[i] := arr[i] * 3; // если число нечетное, умножаем на 3
end;
writeln('Исходный массив:');
for i := 1 to 15 do
write(arr[i], ' ');
end.