Составить программу, которая формирует массив из 12 случайных чисел, принадлежащих...

Question

Составить программу, которая формирует массив из 12 случайных чисел, принадлежащих промежутку [-10,10], заменяет все отрицательные числа положительными, а положительные заменяет на ноль.

Answer 1

Program Ok;
const n=12;
var A:array[1..n] of integer;
var i:integer;
begin
randomize;
for i:=1 to n do 
begin
A[i]:=Random(21) -10;
write(A[i], ' ');
end;
for i:=1 to n do
begin
if (A[i]<0) then<br>A[i]:=A[i]*(-1) 
else
A[i]:=0;
write(A[i],' ');
end;
end.