адача срочно по Паскалю

+ 0 -

Nastya554

08 июля 2013 г., 11:20:29 (10 лет назад)

var 
a:array[1..100,1..100]of integer;
m,n,i,j,s,max:integer;
begin
readln(m,n);
for i:=1 to m do
    begin  s:=0;
        for j:=1 to n do
               begin
                  a[i,j]:=random(100);
                   write(a[i,j]:4);
                   s:=s+a[i,j];
               end;
         if s>max then
            max:=s;
           writeln;
     end;
writeln('S: ',max);
end.

+ 0 -

Asdafds

08 июля 2013 г., 12:53:43 (10 лет назад)

var
a:array [1..10, 1..10] of integer;
i,j,s1,s2,m,n:integer;
begin
writeln('Введите через пробел M, N:');
read(m,n);
randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ')
end;
writeln;
end;
for i:=1 to m do
begin
s2:=0;
for j:=1 to n do
if i=1 then s1:=s1+a[i,j]
else s2:=s2+a[i,j];
if s2>s1 then s1:=s2;
end;
writeln(s1)
end.

+ 0 -

Irahre

08 июля 2013 г., 13:44:09 (10 лет назад)

Вы уверены, что "по N символов" ? В Вашем примере по N чисел в строке, а символов далеко не три...