Question

Составьте программу, которая формирует массив из пятнадцати случайных целых чисел от - 20 до 20 и четные числа делит на два, а нечетные - умножаем на три
Помогите, срочно!!

Answer 1

vari:integer;a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
a[i]:=Random(-20,20);
end;
write('Исходный массив ');
for i:=1 to 15 do begin
write(a[i]);write(' ');
end;
for i:=1 to 15 do begin
if (a[i] mod 2 = 0) then
a[i]:=a[i] div 2
else
a[i]*=2;
end;
writeln();
write('Преобразованный массив ');
for i:=1 to 15 do begin
write(a[i]);
write(' ');
end;
end.