204
Вобщем за вознаграждение прощу помочь мне доделать прогу в Паскале. Написал бы сам, но нету времени, чтоб с этим разобраться!
матрица выводится, числа К, L, Z считает. Надо лишь только оформить подпрограмму по определению K и L,
и работу с файлом. вот текст проги:
{Dana matrica A razmernisti N*N. Vichislit' K ravnoe maximal'noy summe
elementov 'i' stroki, L ravnoe maximal'noy summe elementov 'j' stolbca.
Naiti men'wee iz etikh chisel Z. Vivesti iskhodnuy matricy, chisla: K,
L, Z. Opredelenie maximuma oformit' podprogrammoy.}
program Dima;
uses crt;
var x: array [1..10, 1..10] of real;
y: array [1..10] of real;
n: integer; i: byte; j: byte; sumstr, sumstol, s1, s2, z: real;
begin
clrscr;
writeln('Vvedite rang matrici n<=10');
readln(n);
randomize;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
x[i, j]:=random*200-100;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(x[i, j]:8:2);
end;
writeln;
readln;
sumstr:=0;
for i:=1 to n do
begin
sumstr:=0;
for j:=1 to n do
begin
sumstr:= sumstr+x[i, j];
end;
y:=sumstr;
end;
s1:=0;
for j:=1 to n do
write(y[j]:8:2);
for j:=1 to n do
begin
if s1<y[j] then s1:=y[j];
end;
writeln;
write('K= ', s1:8:2);
readln;
s2:=0;
writeln;
sumstol:=0;
for j:=1 to n do
begin
sumstol:=0;
for i:=1 to n do
begin
sumstol:= sumstol+x[i, j];
end;
y[j]:=sumstol;
end;
for j:=1 to n do
write(y[j]:8:2);
for j:=1 to n do
begin
if s2<y[j] then s2:=y[j];
end;
writeln;
write('L= ', s2:8:2);
readln;
writeln;
z:=s1;
if z>s2 then writeln('Z= ', s2:7:2) else writeln('Z= ', z:7:2);
readln;
end.