Заполнить массив 10 случайными числами от 1 до 10. проверить сколько чисел будет больше числа а (задается с клавиатуры.)

var i,k,j : integer; a : array [1..10] of integer; begin randomize; for i: = 1 to 10 do a[i]: =random(11); for i: = 1 to 10 do write(a[i], ' '); {вывод массива на экран (можно убрать, т.к в это не требуется)} write('введите число а: '); read(k); for i: = 1 to 10 do if a[i] > k then inc(j); {увеличивает j на 1} writeln(j,' чисел большьше числа ', k); end.

День безпечного інтернету (safer іnternet day) прогресивне людство відзначає 6 лютого, адже дана проблема давно вже стала однією з . цю традицію запровадили в європі в 2004 році, бо питання інформаційної безпеки виявилися актуальними для різних країн світу. в 2008 році вже майже в 40 країнах світу, від сша до узбекистану, відзначається це нове свято. в тому, щоб зробити інтернет чистішим і безпечнішим, без хакерів, терористів, спаму зацікавлений будь-який інтернет-користувач. кожний шостий житель землі регулярно працює у всесвітній мережі, а в розвинутих країнах її колапс може призвести до колапсу цивілізації. сьогодні електронною павутиною користується кожен п'ятий українець.в останні роки у віртуальний світ все частіше діти. скоро всі українські школи будуть підключені до інтернету. в той же час, далеко не всі дорослі усвідомлюють потенційну загрозу спілкування підростаючого покоління з електронною машиною. діти легко «підсаджуються на голку» інтернет-розваг, часто-густо зовсім не призначених для них. більш того, дитина через незрілість психіки не в змозі адекватно оцінити отриману, за ї мережі, інформацію. з позицій закону багато інтернет-погроз не є протиправними, але вони явно неприпустимі з позицій моралі. тому в даному випадку актуальною стає самого суспільства. з проблем безпеки дітей в інтернеті проводяться міжнародні конференції, у багатьох країнах діють «гарячі телефонні лінії», що приймають інформацію про небезпечні сайти, проводиться психолого-педагогічна оцінка змісту мережевих ресурсів. 

// pascalabc.net 3.2 begin   var n: =readinteger('введите количество элементов массива: ');   writeln('введите элементы массива');   var a: =readarrinteger(n);   for var i: =0 to n-2 do       for var j: =i+1 to n-1 do           if a[i]< a[j] then swap(a[i],a[j]);   a.println end. тестовый пример введите количество элементов массива: 10 введите элементы массива 57 18 31 40 45 75 85 43 93 27 93 85 75 57 45 43 40 31 27 18