Насколько я понял n должна быть меньше или равна 100, верно? Тогда вот, он, может и не самый эффективный, но довольно понятный и работающий.
#include <iostream>
using namespace std;
int main(){
int n,maks,schetchik; /* n - это количество элементов массива, maks - думаю, знаешь, schetchik - высчитывает количество повторений максимального числа в массиве */
cin >>n;
if(n<=100){
int a[n]; /*обьявляем количество эелементов массива и проверяем, чтобы его количество было меньше или равно 100*/
for(int i=0;i<n;i++){ /*цикл for обьявляет переменную i, далее делая её текущим индексом элемента массива */
cin >> a[i];
if (a[i]>-30000 && a[i]<30000){ /* проверка условия, данного задачей */
if(i==0){maks=a[i]; schetchik =1;}; /* особая разработка автора, максимальным элементом массива становиться самый первый элемент (ну по крайней мере, я ни у кого не видел) */
if (i!=0 && maks == a[i]) {schetchik +=1;}; /* и ещё одна моя собственная разработка, проверка, не является ли элемент массива первым, а так же если он равен максимальному, то счетчик увел. на 1 */
if (maks<a[i]) {maks = a[i]; schetchik = 1; }; /* а тут мы проверяем на то, не являеться ли текущий массив большим чем максимальный, если да, то счет сбрасывается и макс. равняется текущему числу */
}
}
cout << schetchik; } //ну и вывод числа, всё довольно просто
1) var a,b,x:real; begin write ('введите числа а и b: '); readln(a,b); x:=-b/a; writeln('x= ',x); end. 2) var r1,r2,s:real; begin write ('введите размеры внешнего и внутреннего радиусов: '); read(r1,r2); s:=pi*r1*r1-pi*r2*r2; write ('Площадь кольца = ',s); end. 3) var a,b,c,s,p:real; begin write ('введите длины катетов: '); read(a,b); s:=a*b/2; c:=sqrt(a*a+b*b); p:=a+b+c; write ('Площадь треугольника = ',s); write ('Периметр треугольника = ',p); end. 4) var a,b,sr:real; begin write ('введите числа а и b: '); readln(a,b); sr:=(abs(a)+abs(b))/2; writeln('среднее арифметическое модулей = ',sr ); end.
5) var x1,y1,x2,y2,r:real; begin write ('введите координаты точек: '); readln(x1,y1,x2,y2 ); r:=sqrt ( sqr(x2-x1)+sqr (y2-y1)); writeln('расстояние = ',r ); end. 6) var a,b,h, s, p:real; begin write ('введите длины оснований и высоту трапеции: '); readln(a,b,h); s:=(a+b)*h/2; p:=a+b+h+sqrt (sqr(abs(a-b))+h*h); write ('Площадь трапеции = ',s); write ('Периметр трапеции= ',p); end. 7) var a,e,d,s, p:integer; begin write ('введите трехзначное число: '); readln(a); e:=a mod 10; s:=a div 100; d:= (a div 10) mod 10; p:=e*d*s; write ('разность между трехзначным числом и его произведением = ',a-p); end. к твоему комментарию var x,s,m,c: integer; begin write('введите количество секунд: ');readln(x); c:=x div 3600; m:= (x mod 3600) div 60; s:=(x mod 3600) mod 60; часов ',m,' минут ', s,' секунд '); end.
Насколько я понял n должна быть меньше или равна 100, верно? Тогда вот, он, может и не самый эффективный, но довольно понятный и работающий.
#include <iostream>
using namespace std;
int main(){
int n,maks,schetchik; /* n - это количество элементов массива, maks - думаю, знаешь, schetchik - высчитывает количество повторений максимального числа в массиве */
cin >>n;
if(n<=100){
int a[n]; /*обьявляем количество эелементов массива и проверяем, чтобы его количество было меньше или равно 100*/
for(int i=0;i<n;i++){ /*цикл for обьявляет переменную i, далее делая её текущим индексом элемента массива */
cin >> a[i];
if (a[i]>-30000 && a[i]<30000){ /* проверка условия, данного задачей
*/
if(i==0){maks=a[i]; schetchik =1;}; /* особая разработка автора, максимальным элементом массива становиться самый первый элемент (ну по крайней мере, я ни у кого не видел) */
if (i!=0 && maks == a[i]) {schetchik +=1;}; /* и ещё одна моя собственная разработка, проверка, не является ли элемент массива первым, а так же если он равен максимальному, то счетчик увел. на 1 */
if (maks<a[i]) {maks = a[i]; schetchik = 1; }; /* а тут мы проверяем на то, не являеться ли текущий массив большим чем максимальный, если да, то счет сбрасывается и макс. равняется текущему числу */
}
}
cout << schetchik; } //ну и вывод числа, всё довольно просто
}