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

Question

Информатика

Моисей

30 июля, 01:40

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

+3

Ответы (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.