сколько раз элемент C[i,i] двухмерного массива C(N,N) встречается в этом массиве

[kirillbobo]

1.Составьте программу, выясняющую, есть ли в двухмерном массиве C(P,Q) строка, элементы которой образуют геометрическую прогрессию.
2. Составьте программу подсчитывающую сколько раз элемент C[i,i] двухмерного массива C(N,N) встречается в этом массиве.
3. Составьте программу вычисления суммы элементов двухмерного массива A(N,M), встречающихся в этом массиве ровно один раз
ПОМОГИТЕ КТО НИБУТЬ!!!

[ОДИНОЧЕСТВО В СЕТИ]

2

readln (k);
count:=0;
for i:=1 to n do
   for j:=1 to n do
 if c[i,j]= c[k,k] then inc(count);
writeln(count:4);

[__STDC__]

const
	n = 3;
	
type
	matrix = array[1..n,1..n] of integer;
	
procedure fill_matrix(var x:matrix);
var
	i,j:byte;
begin
	x[1,1] := 1;
	for i:=2 to n do
		x[1,i] := 3*x[1,i-1];

	for i:=2 to n do
		for j:=1 to n do
			x[i,j] := random(9)+1;
end;

procedure out_matrix(x:matrix);
var
	i,j:byte;
begin
	for i:=1 to n do begin
		for j:=1 to n do
			write(x[i,j]:5);
		writeln;
	end;
end;

function check(x:matrix):boolean;
var
	q:integer;
	i,j:byte;
begin
	check := false;
	for i:=1 to n do begin
		q := x[i,2] div x[i,1];
		for j:=3 to n do begin
			if (x[i,j] = q*x[i,j-1]) then
				check := true
			else begin
				check := false; break;
			end;
		end;
		if (check) then
			for j:=1 to n do
				write(x[i,j]:3);
	end;
end;

var
	a:matrix;
begin
	fill_matrix(a);
	out_matrix(a);
	writeln('------');
	check(a);
	readln;
end.

первая... актуальна для целочисленных массивов, геометрическая прогрессия - возрастающая... переделать, чтобы считало для любого вида - изменить 1 строчку.. делайте сами.

***
вторая - начало аналогично..

function find(x:matrix; c:integer):byte;
var
	i,j:byte;
begin
	find := 0;
	for i:=1 to n do
		for j:=1 to n do
			if (x[i,j] = c) then inc(find);
end;

var
	a:matrix;
	i:byte;
begin
	fill_matrix(a);
	out_matrix(a);
	writeln('------');
	for i:=1 to n do 
		writeln('a[',i,',',i,'] - ',find(a,a[i,i]));
	readln;
end.

***
Третью лень делать... там все то же самое..

[kirillbobo]

Огромное спосибо!!!