Question

Ввести одномерный массив из 12 целых чисел с помощью генератора случайных чисел (числа в диапазоне [-10;10] и заменить отрицательные элементы числом 1 (организовать вывод исходного и полученного в результате замены массивов).

Answer 1

const n=12;

var a:array[1..n] of integer;

i:integer;

begin

write(' Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write (a[i]:3,' ')

end;

writeln;

writeln;

write('Получённый массив: ');

for i:=1 to n do

begin

if a[i]<0 then a[i]:=1;

write (a[i]:3,' ')

end

end.