Создать массив из 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.     

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.