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

Question

Информатика

Луиза

21 августа, 20:23

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

+2

Ответы (1)

Знаете ответ на вопрос?

Микита · 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

A[i]:=A[i] * (-1)

else

A[i]:=0;

write (A[i],' ') ;

end;

end.