Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию вставить число 100, предпоследний элемент удалить, вывести на экран исходный и конечный массивы.
Uses crt; const N=10; var a:array [1..N] of integer; x:integer; begin randomize; for x:=1 to 10 do begin a[x]:=random(101); writeln('a[',x,']:',a[x]); end; a[1]:=100; a[9]:=a[10]; writeln; for x:=1 to 9 do writeln('a[',x,']:',a[x]); end.
const N=10;
var a:array [1..N] of integer;
x:integer;
begin
randomize;
for x:=1 to 10 do
begin
a[x]:=random(101);
writeln('a[',x,']:',a[x]);
end;
a[1]:=100;
a[9]:=a[10];
writeln;
for x:=1 to 9 do
writeln('a[',x,']:',a[x]);
end.