const z = 10; var a: array[1..z] of integer; i, n, s: integer; begin readln(n); for i : = 1 to z do begin a[i] : = random(100); write(a[i], ' '); if(a[i] > n) then s : = s + a[i]; end; writeln; writeln('сумма эл. > ', n, ' : ', s); end.
Arutyunovich
05.10.2022
Транспортир для измерения угла термометр для определения воздуха барометр для определения погоды компас для определения направления телескоп для просмотра звёзд микроскоп для исследования микроорганизмов часы для определения времени
kettikis
05.10.2022
Давным-давно не знали люди, как пользоваться информацией. тогда не было той науки, которая учит использовать информацию. тяжело жилось людям. допустим, сменилась власть. соседи бегают, рассказывают друг другу новость. на следующий день новость уже забыли, потому что не знали, что новости-то надо запоминать. но несмотря на это такими были не все люди. далеко-далеко в горах жил великий мудрец, который с информацией на раз-два. никто не знал ни как его зовут, ни кто он вообще. а если кто-то и знал, то давно уже забыл. но в один день мудрец почувствовал, что скоро умрет, а еще ничего не смог сделать для людей. и он подумал: "люди ни с новостями, ни просто с информацией не умеют. а не подарить ли мне им мою дочь, науку о информации. мне все равно недолго осталось" так он и сделал. позвал свою дочь и сказал ей: - моя милая. чую, недолго мне жить осталось. дай мне обещание, что после моей смерти отправишься ты наукою в мир людей и подаришь им способность информацией. не называйся им никак. пусть они сами дадут тебе имя. дочь же ему ответила: - да, отец, так и сделаю. через неделю народ узнал о смерти мудреца и уже было все забыл, как со скал спустилась дочь мудреца. на тропинке, ведущей в город она встретила человека и спросила у него: - послушай, человек, скажи, , как мне дойти до вашего селения? человек ответил ей: - вперед по этой тропинке. а как вас зовут? хотя, зачем мне это, я через час все забуду. - скоро вы все будете помнить. человек не понял, что дочь мудреца имела в виду и плечами. девушка дошла до конца тропинки и вдруг испарилась, оставив после себя легкое сверкающее облачко. оно пролетело над людьми, даруя им возможность думать, а у того человека появилась в руках записка: "люди могу т помнить. я дарую тебе книгу, название придумай сам. девушка, встреченная тобой на тропинке. з. ы. мы больше не увидимся." человек взглянул на книгу, он уже знал, как назовет ее. на следующий день в мире появилась новая книга. она называлась "наука информатика".
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дан массив целых чисел. найдите: а) сумму элементов массива, больших данного числа а (а вводить с клавиатуры
const z = 10; var a: array[1..z] of integer; i, n, s: integer; begin readln(n); for i : = 1 to z do begin a[i] : = random(100); write(a[i], ' '); if(a[i] > n) then s : = s + a[i]; end; writeln; writeln('сумма эл. > ', n, ' : ', s); end.