begin var n:=ReadInteger('n='); var (max,k,tmp):=(integer.MinValue,0,0); loop n do begin Read(tmp); if tmp>max then (max,k):=(tmp,1) else if tmp=max then k+=1 end; Writeln('Максимум ',max,' встречен ',k,' раз(а)') end.
Для начала следует отметить тот факт, что не следует путать оператор присваивания со знаком равенства в математике. Оператор присваивания работает следующим образом. (на примере k := 4+7) Сначала вычисляется значение выражения справа от оператора (4+7 = 11), затем результат вычисления "записывается" в переменную из левой части оператора. В результате по имени этой переменной можно получить записанное значение и даже использовать его в других выражениях.
"а := 17" Записываем в переменную а значение 17.
"b := 23" Записываем в переменную b значение 23.
"b := а + b + 1" Сначала вычисляем выражение a+b+1 = 17+23+1 = 41. Затем изменяем значение переменной b (теперь она хранит в себе 41)
"а := b + а" Сначала вычисляем выражение b+a = 41+17 = 58. Затем изменяем значение переменной a (теперь она хранит в себе 58)
Прости я не 7 класс и это вообще информатика ?