Pascal ABC
Имеется массив целых чисел размером N (задаётся константой в коде).
Заполнить его случайными целыми числами, лежащими в диапазоне от a до b ( a >0, b >0 вводятся с клавиатуры).
Вывести полученный массив.
Заменить последний положительный элемент массива на второй элемент.
Вывести новый массив.
Имеется массив целых чисел размером N (задаётся константой в коде).
Заполнить его случайными целыми числами, лежащими в диапазоне от a до b ( a >0, b >0 вводятся с клавиатуры).
Вывести полученный массив.
Заменить последний положительный элемент массива на второй элемент.
Вывести новый массив.
More Questions From This User See All
Answers & Comments
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