Процедуры и функции, не могу закончить прогу.... Опции

[Танкистка]

Написать подпрограмму для вставки элемента в одномерный массив на указанное место.

Я просто неочень разбираюсь с процедурами.. и вот..чет сидела думала, какую-то хрень сделала, ток ниче не понимаю.... сделала, как сказать, как подсказывала интуиция)) хехех.. вот а под конец проги интуиция замолчала и он не получился...

const n=20;
var t:array[1..n] of real;
i,a:integer;
procedure vstavka(k:integer;var t:integer);
begin
t:=k;
end;
begin
randomize;
for i:=1 to n do
begin
t[i]:=random(40);
writeln(t[i]:7:3);
end;
writeln('vvedite chislo');
readln(a);
writeln('vvedite nomer elementa v massive');
readln(i);
vstavka(t[i],k);
writeln('element vstavlen');
for i:=1 to n do
begin
writeln(t[i]:7:3);
end;
readln
end.

М

Теги, теги! ТЕГИ!! Подумай о тех, кто читает! Lapp

Сообщение отредактировано: lapp - 25.11.2006 15:49

[мисс_граффити]

ну, это называется не вставка, а замена.
ладно, дело твое...

var t:array[1..n] of real;{массив из real}
...
procedure vstavka(k:integer;var t:integer);{надо передать 2 integer'а}
...
vstavka(a,t[i]);{а что ты передаешь?}