Pascal ABC

Имеется массив целых чисел размером N (задаётся константой в коде).

Заполнить его случайными целыми числами, лежащими в диапазоне от a до b (a >0, b >0 вводятся с клавиатуры).

Вывести полученный массив.

Заменить последний положительный элемент массива на второй элемент.

Вывести новый массив.

Const n = 10;

var

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

i, x, j, a, b, index:integer;

begin

write ('Введите диапазон от a до b: ') ;

readln (a, b) ;

for i: = 1 to n do

begin

mas[i]:=Random (b-a+1) + a;

end;

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

for i: = 1 to n do

write (mas[i]:4) ;

for i:=n downto 1 do

if mas[i]>0 then

begin

index:=i;

break

end;

mas[index]:=mas[2];

writeln;

writeln ('Результат выполнения задания: ') ;

for i: = 1 to n do

write (mas[i]:4) ;

readln

end.

Введите диапазон от a до b: 10 40

Полученный массив:

25 13 38 31 39 12 16 11 26 33

Результат выполнения задания:

25 13 38 31 39 12 16 11 26 13