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

Question

Информатика

Велеса

31 октября, 00:20

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

+1

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