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

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

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

Лучший ответ по мнению автора

№2

program pr;
uses crt;
const n=10;
var a:array[1..n] of real;
i,k:integer;
p,q:real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
readln(a[i]);
writeln('---------------------');
for i:= 1 to n do
write(a[i]:8:2);
writeln;
writeln('vvedite k');
readln(k);
if k>=n then writeln('вставка невозможна')
else
begin
if k<n-1 then
for i:=n downto k+2 do
a[i]:=a[i-2];
writeln('vvedite два числа');
readln(p,q); a[k]:=p;a[k+1]:=q;
writeln('---------------------');
for i:= 1 to n do
write(a[i]:8:2);
end;

end.

Буду благодарна, если отметите

03.12.12
Лучший ответ по мнению автора

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store