Подсчитайте за один проход массива, сколько его - вопрос №7325313 от Vinyl98 13.02.2023 23:21

Question

Информатика: Подсчитайте за один проход массива, сколько его элементов равны максимальному элементу. входные данные на вход программе сначала подается значение n100 — количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива — целые числа, по модулю не превосходящие 30 000. выходные данные выдайте количество искомых элементов массива. примеры входные данные 8 4 3 5 2 5 1 3 5 выходные данные 3

Vinyl98 · Answer

VarA:array[1..100] of integer;i,M,N,k:integer;BeginReadLn(N);M:=-30001;k:=0;For i:= 1 to N do    Begin    Read(A[i]);    if A[i] M then       Begin       k:=0;       M:=A[i]       End;    if A[i]=M then k:=k+1    End;WriteLn(k)End....