плиз форумчане посмотрите что здесь не правильно

[_Solomon_]

{$APPTYPE CONSOLE}
uses
SysUtils;
var i, g , h: integer;
k: array [1..12] of integer;
begin
for i := 1 to 12 do
begin
Writeln( 'vvedite ', i, ' element massive k' );
Readln( k [ i ] )
end;
for g:= 12 to 6 do
begin
writeln(k[i+g]);
end;
readln;
end.

[2face]

первое что бросается в глаза это массив к состоит из 12 элементов, а в строке writeln(k[i+g]) используешь элементы k[12+12]...k[12+6]

[desau]

Думаю должно быть примерно так:
...
g:=12
for i:= 1 to 6 do
begin
k[i]:=k[i]+k[g];
writeln(k[i]);
g:=g-1;
end;
...

[_Solomon_]

а как правильно плиз сакжите......

[2face]

Смотря что нужно. Какая у тебя задача?

[Трофимов Александр]

Насколько я знаю ещё в паскале пишется не for g:= 12 to 6 do, а for g:= 12 downto 6 do иначе цикл ни разу не выполнится

[Jeni]

Еще интересно, откуда во втором цикле берется переменная i ?
Ведь вовсе не гарантируется, что после первого цикла её значение будет равно 12.