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

Question

Информатика

Фея

6 декабря, 13:39

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

+2

Ответы (1)

Знаете ответ на вопрос?

Тося · 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.