program MassivMaxCount;
Uses Crt;
const n=1000;
var j,m,c:integer;
var a: arrray [1..n] of real;
begin
randomize;
clrscr;
write('Введите количество элементов массива n<1000: ');
readln(m);
c:=0;
max:=a[1];
for i:=1 to m do
begin
a[i]:=random(20)+5;
if (a[i]>max) tnen max:=a[i]
end;
for i:=1 to m do
if (a[i]=max) then c:=c+1;
writeln('Количество элементов равных наибольшему: ',c);
readkey;
end.
Основные преимущества компьютерной технологии создания текстовых документов перед бумажной технологией:
1) Понятно написанный текст (есть не понятные почерки);
2) Высока скорость набора текста;
4) Возможность быстрой корректировка ошибок (в рукописном исправить сложнее);
5) Быстрая перестановка и перенесение теста в нужные места (сохранение выделенного фрагмента в буфер обмена);
6) Простое форматирование текста (стиль и размеры текста) и абзацев в целом;
7) Просто насыщение текста картинками, таблицами, графиками и т.п.
8) Быстрый поиск ключевого слова по тексту;
9) Одновременная работа над одним текстом нескольких авторов;
10) Автоматическая проверка ошибок;
11) Простое и удобное рецензирование;
12) Быстрое размножение текста в любых объемах;
13) Защита авторских прав (от копирования, редактирования);
14) Доступ к тексту из любой точки мира;
15) Печать текста с наложением водяными знаками и применение различных подложек;
16) Представление текста в любых форматах (doc, pdf, jpeg и т.д);
17) Возможность шифрования текста для защиты от несанкционированного доступа;
18) Возможность применения по тексту гипер- и перекрестных ссылок;
19) Возможность установки цифровой подписи от автора текста;
20) Сохранение природных ресурсов (не нужно рубить леса для бумаги).