Составьте программу, которая позволяет вводить с клавиатуры элементы массива a [1..10], а затем выводит на экран в первую строку первые 5 элементов массива, во вторую остальные 5 элементов
Честно говоря, я с трудом могу понять, как массив из 12ти элементов можно вывести в две строки по пять элементов : ) данная программа выводит в первую строку пять элементов, а во вторую - оставшиеся. program n1; uses crt; const n=12; var a: array[1..n] of integer; i: integer; beginclrscr; writeln('vvedite elementy'); for i: =1 to n doreadln(a[i]); for i: =1 to n dobeginwrite(a[i]: 4); if i=5 then writeln; end; readlnend.
Romanovna-yana
12.07.2021
1) program asd; uses crt; const n=10; var a: array[1..n] of integer; i,kp,s: integer; begin writeln('массив: '); for i: =1 to n do begin a[i]: =random(20); write(a[i]: 4); end; writeln; for i: =1 to n do begin if a[i] mod 3=0 then s: =s+1; end; writeln('сумма: ' ,s); end.2)program asd; uses crt; const n=10; var a: array[1..n] of integer; i,kp,s: integer; beginwriteln('массив: '); for i: =1 to n do begin a[i]: =random(20)-10; write(a[i]: 4); end; writeln; for i: =1 to n do begin if a[i]< 0 then s: =s+1; end; if s=0 then writeln('нет отр. элементов! '); writeln('сумма отр. элементов: ' ,s); end.
ilkindadashov935232
12.07.2021
Если не вдаваться в несущественные детали, то будущее за виртуальным общением. пока мы вынуждены, из-за своего невежества, снимать театр. когда изобрели кино, то не изобрели еще крупного плана эйзенштейна, и других эффективных приемов, которые сейчас применяются повсеместно. попросту не знали, что делать с кино. так и с виртуальным общением. пока мы к нему подходим со своими старыми . главное достоинство виртуального общения – возможность каждого человека принимать участие в практически неограниченном количестве проектов. современные социальные сети только отчасти решают эти проблемы. instagram, позволяющий делиться творчеством с друзьями, twitter …. – только первые ласточки. главное достоинство виртуальных сетей – возможность бороться с проклятьем бесконечности при друзей-экспертов в самых разнообразных областях предметной деятельности. в ближайшие годы мы будем наблюдать появление социальных сетей нового типа, обобщающие возможности научных конференций, типа четвергов у ландау, и объединяющие миллионы способных к созидательному творчеству в самых разнообразных областях предметной деятельности. безусловно, новые способы общения имеют недостатки с точки зрения тех, кто привык к традиционным . но, это только в египте ученики на протяжении 2 тысяч лет учились по неизменному учебнику «послание отца сыну». сейчас, в эпоху информационного взрыва старший брат не может понять младшего, не говоря о более солидном поколении. такая судьба современного человека. все, к сожалению, происходит почти в соответствии с древним китайским пожеланием врагу: «чтоб ты жил в эпоху перемен». но мы должны мужественно принимать удары судьбы, потому что у нас нет выбора, или прогресс, или гибель будущих поколений.