Помогите перевести этот код Pascal ** JavaConstn=20;Varx: Array[1..100] of...

Question

Помогите перевести этот код Pascal на Java
Const
n=20;
Var
x: Array[1..100] of Integer;
i,w,l,d: Integer;
BEGIN
For i:=1 to n do
begin
Readln(x[i]);
If x[i]=1 Then Inc(d);
If x[i]=2 Then Inc(l);
If x[i]=3 Then Inc(w);
end;
Writeln('��ë-�î ��������é: ',w);
Writeln('��ë-�î ���������é: ',l);
Writeln('��ë-�î �����õ: ',d);
Readln
END.

Answer 1

Pascal на Java%0AConst%0An=20;%0AVar%0Ax: Array[1..100] of Integer;%0Ai,w,l,d: Integer;%0ABEGIN%0AFor i:=1 to n do%0Abegin%0A  Readln(x[i]);%0A  If x[i]=1 Then Inc(d);%0A  If x[i]=2 Then Inc(l);%0A  If x[i]=3 Then Inc(w);%0Aend;%0AWriteln('��ë-�î ��������é: ',w);%0AWriteln('��ë-�î ���������é: ',l);%0AWriteln('��ë-�î �����õ: ',d);%0AReadln%0AEND.