Учеба и наука

Решено

решение задач 9 класс - вопрос №482774

№1 Дан массв из n целых элементов. удалите 2 подряд идущих элемента, начиная с номера k.

№2 лан массив из n вещественных элементов. Вставить 2 подряд идущих идущих элемента, начиная с номера k.

декабрь 2, 2012 г.

Сообщить о нарушении

Всего ответов: 1

Валентина

3-й в

411 отзыв

program pr;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
readln(a[i]);
writeln('---------------------');
for i:= 1 to n do
write(a[i]:5);
writeln;
writeln('vvedite k');
readln(k);
if k>n then writeln('удаление невозможно')
else if k>n-2 then
begin
writeln('zamenen 0');
for i:=k to n do
a[i]:=0;
for i:=1 to n do
write(a[i]:5);
end
else
begin
writeln('poslednie dva zamenen 0');
for i:=k+2 to n do
begin
a[i-2]:=a[i];
end;
a[n-1]:=0;
a[n]:=0;
writeln('---------------------');
for i:= 1 to n do
write(a[i]:5);
end;

end.