Текстовый процессор может изменять шрифт удалять красить заменять сохранять форматировать и много много еще а редактор может только редактировать
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>
Если в первый день машинист проехал 10 км, то во второй день он проехал на 5 км больше
сколько км проехал машинист за два дня?
10 + 5 = 15 (второй день)
15 + 10 = 25 (проехал за два дн
Разность во времени, в процентах, будет вычисляться по формуле:
100*|(a+b)/(a-b)|
Условие следующее: если значение этого выражения будет больше 40, то будет выполняться какое-либо действие.