procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
Eclipse; IntelliJ IDEA; Android Studio.
Четное число, это когда остатка нет
используют функцию mod
пример использования
var a:integer;
begin
readln(a);
if a mod 2 = 0
then write('Четное')
else write('Нечетное');
end.
Может поймете, изначально А берется за 1 путь а потом по стрелочкам)суммируются значения стрелок
Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.