Алг
нач
цел n, a, Max
вывод "n = "
ввод n
ввод Max
нц для n от 1 до n-1
ввод a
если a > Max то Max:=a
всё
кц
вывод "Max = ", Max
кон
pow(a,b) - возведение a в степень b
pow(m,1.0/3)
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
<em>Вот так)</em>
<em><form autocomplete="off">
</em>
<em> <input type="text" name="test" autocomplete="off">
</em>
<em></form></em>