ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program MATR;


var
Matrix:array[1..5,1..5] of integer;
I,J:integer;
SummaElementov:array[1..5] of integer;
begin
for I:=1 to 5 do begin
for J:=1 to 5 do begin
Matrix[I,J]:=I+J;
write (Matrix[I,J],'   ');
SummaElementov[i]:=SummaElementov[i]+ Matrix[I,J];
end;
write (#13#10);
end;

writeln;
for I:=1 to 5 do writeln('Summa elementov stroki ',I,' = ',SummaElementov[I]);

readln;
end.

2   3   4   5   6
3   4   5   6   7
4   5   6   7   8
5   6   7   8   9
6   7   8   9   10

Summa elementov stroki 1 = 20
Summa elementov stroki 2 = 25
Summa elementov stroki 3 = 30
Summa elementov stroki 4 = 35
Summa elementov stroki 5 = 40

program STROK;

var
Matrix:array[1..5,1..7] of integer;
Naim,Naib:array[1..5] of integer;
I,J:integer;
begin

randomize;
for I:=1 to 5 do begin
Naim[I]:=10;
Naib[I]:=0;
for J:=1 to 7 do begin
Matrix[I,J]:=random(9)+1; {generim 4icla ot 1 do 9}
write (Matrix[I,J],'   ');
IF Naim[I]>Matrix[I,J] then Naim[I]:=Matrix[I,J];
IF Naib[I]<Matrix[I,J] then Naib[I]:=Matrix[I,J];
end;
write (#13#10);
end;

writeln;
writeln('Sorted:');
writeln;

for I:=1 to 5 do begin
for J:=1 to 7 do begin
if I=1 then write(Matrix[I,J],'   ');
if I > 1 then
if Naim[I]=Matrix[I,J] then write(Naib[I-1],'   ') else write(Matrix[I,J],'   ');
end;
write(#13#10);
end;

readln;
end.

8   5   2   2   1   5   2
4   9   8   6   4   7   6
3   3   5   3   8   1   7
8   1   7   2   7   6   4
3   9   7   4   9   3   6

Sorted:

8   5   2   2   1   5   2
8   9   8   6   8   7   6
3   3   5   3   8   9   7
8   8   7   2   7   6   4
8   9   7   4   9   8   6