Почему программа выдаёт только 2 значения? const n=10; var a: array [1..n] of integer; d, i: integer; pd: real; begin for i: =1 to n do a[i]: =random(5)+1; begin d: =0; pd: =0; if (a[i]=2) then d: =d+1; pd: =(d*100)/n; write(pd) end; end. программа написана в pasclabc.net

Ну во-первых: 
 for(int i=0;i<arrray.length;i++)
 arrray
Во-вторых рабочая прога:

public class ZnanijaCom{
     public static void main(String[] main) {
     int array[] = {1,1,3,4,5,6,7,7,6};
     int number;
         for(int i=0;i<array.length;i++) {
            for(int j=i+1;j<array.length;j++) {
                if (array[i] == array[j]) {
                    System.out.println("Najden povtor chisla " + array[i]);                                                System.out.println(" pervyj indeks " + i);
                     System.out.println(" vtoroj indeks " + j);
                }
            }
         }
     }
}

Program MinMax
var a: array [1..100] of real
var i, nmin, nmax: integer, min, max: real
BEGIN
for i := 1 to 100 do read a[i]; // вводим массив
min := a[1]; max := a[1]; nmin := 0; nmax := 0;
for i := 1 to 100 do
begin
if a[i] = min then nmin := nmin + 1;
if a[i] = max then nmax := nmax + 1;
if a[i] < min then begin min = a[i]; nmin := 1; end
if a[i] > max then begin max = a[i]; nmax := 1; end
end;
if nmin > nmax then write ('Min')
if nmin < nmax then write ('Max')
if nmin = nmax then write ('Ravno')
END.