4. подсчитайте за один проход, сколько его элементов равны максимальному элементу. на вход программе сначала подается значение n< =100 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. выдайте количество искомых элементов массива.

Var a: array [1..100] of integer; i,n,k,mx: integer; begin   writeln('введите n: ');   readln(n);   mx: =1; k: =0;   writeln('введите массив: ');   for i: =1 to n do   begin   readln(a[i]);   if a[i]> a[mx] then   begin   mx: =i;   k: =0;   end else   if (a[i]=a[mx])and(i< > mx) then k: =k+1;   end;   writeln('количество элементов массива равных максимальному: ',k); end.

Файл -  специально организованная структура данных, распознаваемая компьютером как единое целое. средства вывода:   визуальные - монитор, плоттер, принтер, проекторзвуковые: динамик, колонки, наушники средства ввода:   графической информации - сканер, видео/веб-камера, фотоаппарат.  звуковой: - микрофон, цифровой диктофон прочее:   мышь, трекбол, тачпад, световое перо, графический планшет, тачскрин, джойстик, устройства основанные на компьютерном зрении (например: kinect), руль, геймпад есть еще и ввода-вывода:   модем, дисковод, сетевая плата, стример. файлы  используют для обработки, хранения и передачи информации.

1аполлон - божество солнца, сын зевса и лето, а все остальные планеты 2. флейта - духовный инструмент, а остальные струнные 3. рикша - это повозка, а остальные название морских судов 4. тургенев - писатель, а остальные композиторы 5. нью-йорк - город, а все остальные столицы 6. бунгало, иглу, шале   - это жилье, причем тут осень и зима 7. нил - река в африке, а остальные в европе 8. руслан - название  самолета, остальные название  авто 9. торф - минерал, остальные твердые ископаемые 10. кофе - мужского рода, остальные среднего рода