var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.
<h2>Код</h2>
- n = int(input())
- print(max(list(str(n))))
<h2>Ввод</h2>
78678687785287678651267582658726559
<h2>Вывод</h2>
9
//PascalABC.Net 3.1 сборка 1200
begin
var a:=ReadArrInteger(5);
writeln(a.Min);
end.
Нужно написать программу. Держи:
П0 1 0 / {x} 1 0 * ИП0 1 0 0 / - x=0 18 1 С/П 0 С/П
Выводит 1, если совпадают, и 0, если нет.
Import java.util.Scanner;
class Znanija {
public static void main(String[] args) {
Scanner in = new Scanner(System.in);
int a = in.nextInt();
int b = in.nextInt();
if (a > b) then System.out.println("a > b");
else System.out.println("a <= b");
}
}