Учеба и наука
Решено
решение задач 9 класс - вопрос №483078
№1 Дан массв из n целых элементов. удалите 2 подряд идущих элемента, начиная с номера k.
№2 дан массив из n вещественных элементов. Вставить 2 подряд идущих идущих элемента, начиная с номера k.
декабрь 2, 2012 г.
-
Всего ответов: 1
-
№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.Буду благодарна, если отметите
Лучший ответ по мнению автора
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.