Question

Сформировать массив из 15 случайных чисел, принадлежащих промежутку от 5 до 20, а затем преобразовать, увеличивая на 1 все элементы, меньшие 10. Распечатать исходный и преобразованный массивы.

Answer 1

var
i:integer;
a:array [1..15] of integer;

begin
for i:=1 to 15 do begin
a [i]:=Random (5,20);
end;
write ('Исходный массив ');
for i:=1 to 15 do begin
write (a [i]);
write (' ');
end;
for i:=1 to 15 do begin
if (a [i]<10) then
inc (a [i]);
end;
writeln (' ');
write('Преобразованный массив ');
for i:=1 to 15 do begin
write (a [i]);
write (' ');
end;
end.