Предмет: Информатика,
автор: g3981
Пожалуйста, помогите!!!
Дан массив a из n целых чисел и натуральное число K. Удалить из массива a элемент с номером k
Andrey05:
Паскаль?
Ответы
Автор ответа:
1
var a:array [1..1000] of integer;
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.
k,i,n:integer;
begin
write ('kol-vo elementov v massive=');
readln (n);
write ('k=');readln (k);
writeln ('vvedite massiv');
for i:=1 to n do
readln (a[i]);
write ('massiv: ');
for i:=1 to n do
write (a[i],' ');
if (k<=n) and (k>0) then
for i:=k+1 to n do
a[i-1]:=a[i];
writeln;
write ('massiv posle ydalenija: ');
for i:=1 to n-1 do
write (a[i],' ');
end.
Похожие вопросы
Предмет: Русский язык,
автор: shhukin2005
Предмет: Английский язык,
автор: maximw2
Предмет: Английский язык,
автор: verakotova1
Предмет: Математика,
автор: Far189
Предмет: Литература,
автор: Kriss05miss