Pascal: const n = 10; var a:array [1..n] of integer; i,max,c:integer; begin clrscr; readln (a[1]); max:=a[1]; c:=1; for i:=2 to n do begin readln (a[i]); if a[i]>max then begin max:=a[i]; c:=1; end else if a[i]=max then inc(c); end; writeln ('Kol-vo: ',c); end.
C++: #include <iostream> using namespace std;
int main() { int a[10]; int c = 0,max; cin >>a[0]; max = a[0]; for (int i = 1; i<10; i++) { cin >>a[i]; if (a[i]>max) { max = a[i]; c = 1; } else if (a[i]==max) ++c; } cout <<"KOL_VO: " <<c <<endl; return 0; }
1. Выделение текста Форматирование абзаца Форматирование шрифта Форматирование списков Форматирование таблиц Колонки Разделы 3. Чтобы изменить размещения рисунка, следует щелкнуть на нём правой кнопкой мыши и выбрать в контекстном меню пункт Формат рисунка.
Вы можете выбрать любое обтекание рисунка текстом:
в тексте; вокруг рамки; по контуру; за текстом; перед текстом. Ниже, в Горизонтальном выравнивании выбираете выравнивание рисунка относительно текста:
По левому краю; По центру; По правому краю; Другое; 4. обычный режим; режим Web-документа; режим разметки страницы; режим структуры документа; схема документа; во весь экран; режим предварительного просмотра.
