написанные программы / задание №3 — 4 / lab_3

Program kristina_2;

const a = 2;
const b = 3;

var arr : array[0..a-1, 0..b-1] of integer;
var e, i : word;

function first : integer;
var sum : integer;
tmp : integer;
k : boolean;
begin
sum := 0;
for i := 0 to a-1 do
begin
k := FALSE;
tmp := 0;
for e := 0 to b-1 do
begin
inc(tmp, arr[i,e]);
if (arr[i,e] < 0) then
k := true;
end;
if (k) then
inc(sum, tmp);
end;
first := sum;
end;

procedure second;
var point : integer;
min : word;
o : integer;
label nexta;
begin
for e := 0 to b-1 do
begin
point := arr[0,e];
for i := 0 to a-1 do
begin

if (point > arr[i,e]) then
point := arr[i,e];

for o := 0 to b-1 do
if (point < arr[i,o]) then
goto nexta;
writeln('Found: ', i, ' ', e, ' ', arr[i, e]);
nexta:
end;
end;
end;

begin
for i := 0 to a-1 do
for e := 0 to b-1 do
readln(arr[i,e]);

writeln(first);
second;

end.