Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все отрицательные элементы на наименьший положительный. Выведите на экран исходный и полученный массив.

Question

Информатика

Манюся

9 сентября, 15:37

Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все отрицательные элементы на наименьший положительный. Выведите на экран исходный и полученный массив.

+4

Ответы (1)

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

Евгеха · Answer 1

var

mas:array[1 ... 10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do

begin

mas[i]:=random (200) - 100;

write (mas[i]:4) ;

end;

writeln;

for i:=1 to 10 do

begin

if (mas[i]<0) then mas[i]:=1;

write (mas[i]:4) ;

end;

writeln;

end.