Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.