написать программу на Pascal -
В одномерном массиве целых чисел, содержащем 20 элементов, удалить k-ый элемент массива. Массив заполняется случайным образом числами от 0 до 50.
const
n = 20;
var
a:array[1..n] of integer;
i, k:integer;
begin
randomize;
writeln(Исходный массив: );
for i := 1 to n do
begin
a[i] := random(51);
write(a[i], );
end;
writeln;
write(k = ); readln(k);
if (k > n) or (k < 1) then
begin
writeln(элемента с таким индексом нет);
readln;
Exit;
end;
for i := k to n - 1 do
a[i] := a[i + 1];
a[n] := 0;
writeln(Измененный массив:);
for i := 1 to n - 1 do
write(a[i], );
readln;
writeln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
