Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в...

Question

Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличие все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяя на 0(Паскаль)

Answer 1

Var a: array[1..10] of Integer;
i,s,d: Integer;
begin
for i:=1 to 10 do
begin
a[i]:=Random(10-1+1)+1;
writeln('Число: ',a[i]);
end;
for s:=1 to 10 do
begin
if a[s] mod 2<>0 then a[s]:=a[s]*3 else a[s]:=0;
end;
for d:=1 to 10 do
begin
writeln(a[d]);
end;
end.

Answer 2

const n=10;

var a:array [1..n] of integer;

i:integer;

begin

for i:=1 to n do a[i]:=random(10)+1;

writeln('Исходный массив: ',a);

for i:=1 to n do

if a[i] mod 2 = 0 then a[i]:=0 else a[i]:=a[i]*3;

writeln('Преобразованный массив: ',a)

end.