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

Question

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

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

Answer 1

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