Паскаль

[мой оверкиль]

в 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!

Comments

[katastroficheski]

Тысячу лет на паскале не писала.. Синтаксис забыла уже. Так что за правильность не ручаюсь, но как-то так.

Program firstdif;
Var a:array [1..4,1..4] of integer;
b:Array[16] of integer;

i,j,s,n,k: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 16 do begin
b[i]=0;
end;

S=0;k=1;
For i:=1 to 4 do begin
For j:=1 to 4 do begin
n:=a[i,j];
For i:=1 to 20 do begin
If a[i,j]=n then s:=s+1;
end;
If s=0 then b[k]=n;
K=k+1;
s=0;
end;
end;

Writeln;
for i=1 to k do begin
write b[i];
end;
writeln;
Write(k);
end.

[O]

Savka.
"кол-во различных элементов" - в смысле, количество уникальных элементов?
Если да, то
===

Program firstdif;
Var a		   : array [1..4,1..4] of integer;
   i0,j0,i1,j1,s,n : integer;
   found	   : boolean;
Begin		   
   Randomize;
   For i0:=1 to 4 do begin
      For j0:=1 to 4 do begin
	 a[i0,j0]:=random (20);
	 Write (a[i0,j0],' ');
      end;
      Writeln;
   end;
   For i0:=1 to 4 do begin
      For j0:=1 to 4 do begin
	 n:=a[i0,j0];
	 found:=false;
	 For i1:=1 to 4 do begin
	    For j1:=1 to 4 do begin
	       If a[i1,j1]=n and i1<>i0 and j1<>j0 then begin
		  found:=true;
		  break;
	       end;
	    end;
	    if found then begin
	       s:=s+1;
	       break;
	    end;
	 end;
      end;
   end;
   Writeln;
   Write(s);
end.

===
Внесённые изменения выделены курсивом.

[мой оверкиль]

katastroficheski
сейчас попробую
O

"кол-во различных элементов" - в смысле, количество уникальных элементов?

элементов, которые встречаются в матрице только один раз, да..
проблема в том, что я в своем 10 классе как бы не проходила тип boolean, поэтому и пыталась сделать что-то простое

спасибо всем за помощь