Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и удалить k-ый элемент (k = 1 ... N- любое).Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 5 Введите число k = 2 Результат: ...
Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и удалить k-ый элемент (k = 1 ... N- любое).
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 5
Введите число k = 2
Результат:
4 3 10 -4 -6 8 -10 1 5
Гость
Ответ(ы) на вопрос:
ГостьProgram a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.
Не нашли ответ?
Похожие вопросы