Составить программу, которая формирует массив из 12 случайных чисел, принадлежащих промежутку [-10,10], заменяет все отрицательные числа положительными, а положительные заменяет на ноль.
Answers & Comments
Хэйллис
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 A[i]:=A[i]*(-1) else A[i]:=0; write(A[i],' '); end; end.
Answers & Comments
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
A[i]:=A[i]*(-1)
else
A[i]:=0;
write(A[i],' ');
end;
end.