Var a:array[1..10000] of integer;
n,i,max,k:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; k:=1;
for i:=2 to n do
begin
if a[i]>max
then begin max:=a[i]; k:=1; end
else if a[i]=max then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
<span>6
1 2 3 2 3 3
k = 3</span>
<h2>Скорее всего ЛЕВЫЙ. Надеюсь правильно сказал</h2>
Преобразование компьютерной программы, написанной на языке программирования, в программу, использующую машинные коды.<span>
</span>
6-угольник - это цикл, который проходит все элементы массива х.
Ромб - это проверка четный элемент или нет (проверяется четность его позиции в массиве - 0 - четный, 1 - нечетный, 2 -- четный и тд.)
// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035