Заполнить массив из 10 элементов целыми числами из интервала [-20; 29], числа вводятся с клавиатуры.

Код Pascal.

const n = 10;

var

a: array[1 ... n] of integer;

i, c: integer;

begin

i : = 0;

while 1 = 1 do begin

if i = 10 then break;

readln (c) ;

if (c = - 20) then begin

inc (i) ;

a[i] : = c;

end else writeln ('Число выходит за границы') ;

end;

writeln ('Готово') ;

readln;

end.

Вродь как-то так