Question

1. Написать и отладить программу заполнения массива из 10 элементов случайными числами от -5 до 5. Удалить элемент с номером 4. Распечатать массив до удаления элемента и после.

Answer 1

var
a:array [1..10] of integer;
i:integer;
begin
Randomize;
for i:= 1 to 10 do a[i]:=random(10)-5;
for i:= 1 to 10 do write(a[i],' ');
writeln;
for i:= 4 to 9 do a[i]:=a[i+1];
for i:= 1 to 9 do write(a[i],' ');
end.