Вычислить сумму элементов

[Grecu Alexandru]

Здраствуйте Помогите пожалуста решить задачу:
разработать программу, которая вычисляет двумерную таблицу 5х5 целое число: Вычислить сумму элементов, расположенных на справа в первом столбце и выше побочной диагонали.
Спосибо за помочь!

[Dvoishnik]

если правильно понял задание то так

const n=5;
var arr:array [1..n,1..n] of integer;
j,
i:byte;
sumDe,
sumSt:integer;

begin 
Randomize;
for i:=1 to n do
	for j:=1 to n do
		arr[i,j]:=1+random(10);
Write('исходная матрица');
for i:=1 to n do
	begin
	 writeln;
	 for j:=1 to n do
		write(arr[i,j]:3);	
	end;
sumst:=0;
writeln;
writeln;
writeln('последний столбец');
for i:=1 to n do	
	begin
	 writeln(arr[i,n]:3); 
	 sumst:=sumst+arr[i,n];
	end;	
writeln('сумма в столбце :',sumst);	
writeln;
write('елементы выше побочной диагонали');
sumDe:=0; 
for i:=1 to n do
	begin
	 writeln;
	 for j:=1 to n do
		begin
		 if (i<n-j+1) then 
		  begin
		   write(arr[i,j]:3);	
		   sumde:=sumde+arr[i,j];
		  end;
		end;	
	end;	

writeln('сумма выше побочной диагонали :',sumde);	
writeln('сумма выше побочной диагонали и в столбце:',sumde+sumst);	
readLN;	
end.

[Grecu Alexandru]

Должно быть похожу на эту нужно чтото изменить

Program P2;
  type t2=array[1..5,1..5] of integer;
  var x:t2;i,j,s:integer;
Begin
  writeln(' Данные в таблице x:');
  for  i:=1 to 5 do
  for  j:=1 to 5 do read(x[i,j]);
  s:=0;
  for  i:=1 to 5 do
  for  j:=1 to 5 do
  if(x[i,j] mod 10=1) and (x[i,j] mod 3=0) then s:=s+x[i,j];
  writeln('Сумма ',s); readln;
End.

[Aleksandr H.]

Сообщение от Grecu Alexandru

Вычислить сумму элементов, расположенных на справа в первом столбце и выше побочной диагонали.

Нарисуйте, пожалуйста, таблицу (можно в paint) и обозначьте суму каких элементов надо искать.