Uses crt; const M = 100; var a: array [1..M] of integer; i, max, k, n: integer; begin clrscr; repeat writeln('Введите количество элементов массива'); readln(n); until (n <> 0) and (n>0);
for i := 1 to n do begin writeln('Введите [', i, '] элемент массива'); readln(a[i]); end;
for i := 1 to n do write(' ', a[i]);
writeln;
max := a[1]; for i := 2 to n do if a[i] > max then max := a[i]; writeln(' max= ', max);
for i := 1 to n do if a[i] = max then k := k + 1; writeln(' k= ', k); end.
Microsoft Word - это текстовый редактор от компании Microsoft. Программа обычно входит в пакет офисных программ Microsoft Office, но может поставляться и отдельно. Является платной и стоит просто бешеных денег для организаций (около 19000руб, т.к. продается только в составе пакета Microsoft Office Pro), и больших денег для домашних пользователей (около 4000р), но никого это не смущает, все используют пиратские версии. Программа позволяет редактировать тексты любой сложности, вставлять в документы картинки, таблицы и прочее нестандартное содержимое. Аналогом Microsoft Word является бесплатный Writer из пакета LibreOffice и OpenOffice, который позволяет делать всё то же самое, только бесплатно, хотя и немного сложнее местами. Microsoft Word официально работает только на компьютерах с ОС Microsoft Windows и Apple OS X, хотя возможен и его запуск на ОС семейства Linux через Wine, но корректная работа программы не гарантируется. Microsoft Word является самым распространенным текстовым редактором в мире.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
