Вот как выглядит решение без лишних комментариев (см . прикрепленный файл)
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
int a = x;
int b = y;
int c;
c = a;
a = b;
b = c;
1.Присвоим переменной C значение из переменной a.
2.Присвоим a значение b.
3.Присвоим b значение переменный C.