Составить программу на pascal составить программу, прибавляющую единицу ко всем элементам линейной таблицы.

начну с плюсов и минусов.

плюсы

одним из главных плюсов является компактность, ведь в одном устройстве могут хранится тысячи книг. кроме того, устройство обычно меньше и легче бумажной книги. так же в книжных магазинах книги могут стоить 500 рублей, 2000 руб и выше и цены разные, а в интернет-магазинах для электронных книг книги могут стоить в несколько раз дешевле.

минусы

как любые электронные приборы, устройства для чтения электронных книг гораздо чувствительнее к повреждениям , нежели обычные книги. многие издатели официально не публикуют электронные версии бумажных книг, но стоит понимать, что многие читатели сами загружают книги в общий доступ. устройства для чтения электронных книг требуют периодической зарядки (батареи).

вообщем плюсов и минусов больше, но они не относятся к каждой электронной книги,а эти есть у всех.

Program n2; const n=10; var a: array [1..n] of integer; i,k,j,temp: integer; begin randomize; writeln('исходный массив'); k: =0; for i: =1 to n do begin a[i]: =random(201)-100; write(a[i],' '); end; writeln; writeln('полученный массив: '); for i: =1 to n do for j: =i to n do if a[j]> a[i] then begin temp: =a[i]; a[i]: =a[j]; a[j]: =temp end; for i: =1 to n do begin write(a[i],' '); if (a[i]< 0) and (i mod 2=0) then k: =k+1; end; writeln; write('кол-во отрицательных элементов на четных местах: ',k); end.