Найдите сумму элементов столбца и строки массива, на пересечении которых находится элемент.

[Serjant0007]

Найдите сумму элементов столбца и строки массива, на пересечении которых находится элемент. Thank you!

[m@xon]

var
a:array[1..5,1..5] of integer;
i,b,s1,s2,z,x,y:integer;
Begin
z:=1;
Writeln('Заполните массив');
for i:=1 to 5 do
begin
readln(a[i,1]);
readln(a[i,2]);
readln(a[i,3]);
readln(a[i,4]);
readln(a[i,5]);
end;
writeln('введите элемент');
readln(b);
repeat
for i:=1 to 5 do
if a[i,z]=b then
begin
x:=i; y:=z;
end;
z:=z+1;
until z=6;
for i:=1 to 5 do
begin
s1:=s1+a[i,y]; //сумма элементов строки
s2:=s2+a[x,i];//сумма элементов столбца
end;
writeln(s1,' ',s2);
end.

Вот, это так, грубо

Только ещё желательно добавить проверку на уникальность элемента(если проверяемых элементов несколько, то суммы будут разные)
Надеюсь внятно сформулировал