в 2х мерном массиве определить кол-во различных элементов
Program firstdif;
Var a:array [1..4,1..4] of integer;
i,j,s,n:integer;
Begin
Randomize;
For i:=1 to 4 do begin
For j:=1 to 4 do begin
a[i,j]:=random (20);
Write (a[i,j],' ');
end;
writeln;
end;
For i:=1 to 4 do begin
For j:=1 to 4 do begin
n:=a[i,j];
For i:=1 to 4 do begin
For j:=1 to 4 do begin
If a[i,j]<>n then s:=s+1;
end;
end;
end;
end;
Writeln;
Write(s);
end.
прога работает, но ответ не правильный.
help!