Varn,a,b,i,max:integer;beginwriteln('vvedite kol-vo chisel N');readln(n);max:=0;for i:=1 to n dobeginwriteln('vvedite ',i,' chislo');readln(a);if max = a theninc(b);if max < a thenmax:=a;end;writeln('max=',max);writeln('Количество елементов которые равны максимуму ',b);end.
Это первое :
1) +3. 1)+3
2)-2. 2)+3
3)+3. 3)-2
4)-2. 4)-2
5)+3. 5)+3
6)+3. 6)+3
второе :
1) +3
2)+3
3)-2
4) +3
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Abs(ReadReal).Println
end.
Программное обеспечение.
Вычисляет решение самых разнообразных задач.
Обрабатывает информацию.
Программное обеспечение - часть программ или процедур.
Компьютер.
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
short *arr = new short[n];
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int max = arr[0];
for (int i = 0; i < n; i++) {
if (arr[i] > max) {
max = arr[i];
}
}
cout << max;
return 0;}