Создать массив а из 10 целых чисел, принадлежащих промежутка [0; 20 вывести полученный массив на экран. вычислить количество элементов массива, значение которых превышает среднему арифметическому значению

Var
a : array[0..9] of integer;
i, k : integer;
s : real;
Begin
s := 0;
k := 0;
randomize;
for i := 0 to 9 do begin
a[i] := random(20);
Write(a[i], ' ');
s := s + a[i];
end;
s := s / 10;
For i := 0 to 9 do
if a[i] > s then
inc(k);
Writeln();
Writeln(k);
End.

//прога на Pascal`e
var
a : array[1..10] of  shortint;
i, count, sum : byte; 
begin
randomize;

write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.

В одной деревне жили собака и кошка.Собачку звали Жучка,а кошку Муська. Они были очень дружны.Ели Жучка и Муська с одной миски,спали в одной будке.Жучка сторожила хозяйский двор,Муська ловила мышей.И все было очень хорошо и дружно.Но однажды на крыше хозяйского дома,Муся увидела гнездо,а в гнезде,три яйца.Жучка и Муська поняли,что это кукушка бросила свои яйца.Они вытащили это гнездо на землю и поочереди грели яйца своим телом.Через неделю ,из яиц вылупились птенцы, и Муська с Жучкой взяли заботу о кормлении на себя. Вот такая небылица.Сказка ложь ,да в ней намек,добрым молодцам урок

1. Бумажный носитель помещается в сканер.

2. В программе отдаётся команда Сканировать.

Создаётся цифровая копия исходного документа в формате docx.

3. Программа распознавания текста анализирует структуру документа, выделяя на его страницах блоки текста, таблицы, картинки и т. п. Строки разбиваются на слова, а слова — на отдельные буквы. После этого программа сравнивает найденные символы с шаблонными изображениями букв и цифр, хранящимися в её памяти. Программа рассматривает различные варианты разделения строк на слова и слов на символы. В программу встроены словари, обеспечивающие более точный анализ и распознавание, а также проверку распознанного текста. Проанализировав огромное число возможных вариантов, программа принимает окончательное решение и выдает пользователю распознанный текст.

4. Распознанный текст переносится в окно текстового редактора, в котором пользователь может редактировать и форматировать распознанный текст.