Question

Кр по инфе дан массив из 10 случайных чисел заданым на интервали [-10; 10] умножить положительные элементы на -2 , и ввести массив на экран

Answer 1

Var
i:integer;
a:array [1..10] of integer;

begin
for i:=1 to 10 do begin
a [i]:=Random (-10,10);
end;
for i:=1 to 10 do begin
if (a [i] > 0) then
a [i]:=a [i]*2;
end;
write('Полученный массив: ');
for i:=1 to 10 do begin
write (' ');
write (a [i]);
end;
end.