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 <= 29) and (c >= -20) then begin inc(i); a[i] := c; end else writeln('Число выходит за границы'); end; writeln('Готово'); readln; end.
Answers & Comments
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 <= 29) and (c >= -20) then begin
inc(i);
a[i] := c;
end else writeln('Число выходит за границы');
end;
writeln('Готово');
readln;
end.
Вродь как-то так