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.
Onajonm: существует несколько типов оптических дисков: cd-диски – для записи и считывания информации с них используется инфракрасный лазер, на cd-диск может быть записано до 700 мбайт информации; dvd-диски – имеют значительно большую информационную емкость, чем сd-диски, так как для записи и считывания информации с них используется лазер с меньшей длиной волны и оптические дорожки на них имеют меньшую толщину и размещены более плотно. на одной стороне dvd-диска умещается 4,7 гбайт информации, но бывают диски двухслойные, тогда объем может достигать 8,5 гбайт. в оптических дисководах используется оптический принцип записи и считывания информации. информация на оптическом диске хранится на одной спиралевидной дорожке, идущей от центра диска к периферии и содержащей чередующиеся участки с плохой и хорошей отражающей способностью.
Компьютер необходим человеку, поскольку дает ему такие возможности, о которых мы раньше и представить себе не могли. и в повседневной жизни, и в производстве уже нельзя обойтись без компьютера. в общем смысле компьютер — это электронно-вычислительное устройство, способно выполнять многие функции вместо человека, причем во много раз быстрее. скорее всего, развитие производства и увеличение объема информации к необходимости создания компьютера как своего рода инструмента для и хранения этой информации. представьте себе, что вся информация, которая имеется в вашем персональном компьютере, будет храниться на бумажном носителе. да у вас весь дом будет завален бумагами! компьютер не только хранит информацию, но и обрабатывает и систематизирует ее. компьютер и всемирная сеть интернет предоставляют людям возможность общаться друг с другом, играть в любые игры, читать любимые книги, смотреть фильмы. порой от компьютера невозможно оторваться — даже для того, чтобы поесть. есть много способов похудения, а с появлением доступа в интернет персональный компьютер уже можно назвать одним из них. все области деятельности человека связаны с компьютером. компьютеру стало возможным создавать практически полностью автоматизированные производства, реализовывать многие проекты, ускорить и сделать более продуктивным процесс обучения и еще многое другое.
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.
Вродь как-то так