var
n, i, e, m : Integer;
yes : Boolean;
begin
Readln(n);
m := 1;
yes := False;
for i := 1 to n do
begin
Readln(e);
if e > m then m := e;
if e < 30 then yes := True;
end;
Writeln(m);
if yes then Write('YES') else Write('NO');
end.
Ответ:
30
Объяснение:
первое число - 30 в десятичной системе счисления
второе - 36
третье - 33
Var a,des,ed,raznost:int64;
begin
read(a);
ed:=a mod 10;
des:=(a mod 100) div 10;
raznost:=des-ed;
write(raznost);
end.
1) Не верно
2) Верно
3) Не верно
4) Не верно
5) Верно
Вроде так...
<span>Решение должно иметь от 20 до 5000 символов</span>