Другие языки программирования и технологии

Помогите с задачей!!??двумерный массив!!

(Maxim )
(Maxim )
356
У Сергея Куксенкова неправильная программа.
Я немного подкорректировал её.
uses crt;
var
n,m,i,j,sum,x,k:integer;
a:array[1..50,1..50] of integer;
b:array[1..50]of integer;
begin
clrscr;
randomize;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[ i,j ]:=random(10)-3;
write(a[ i,j ]:4);
end;
writeln;
end;
k:=0;
for i:=1 to n do
begin
Sum:=0;
for j:=1 to m do
Sum:=Sum+a[ i,j ];
if sum<0 then inc(k);
end;
if k=0 then writeln('Â ìàññèâå íåò ñòðîê ñ îòðèöàòåëüíîé ñóììîé')
else writeln('Â ìàññèâå ',k,' ñòðîê ñ îòðèöàòåëüíîé ñóììîé');
readln;
end.
Тимур Сарбупенов
Тимур Сарбупенов
2 315
Лучший ответ
uses crt;
var
n,m,i,j,sum,x,k:integer;
a:array[1..50,1..50] of integer;
b:array[1..50]of integer;
begin
clrscr;
randomize;
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[ i,j ]:=random(10)-3;
write(a[ i,j ]:4);
end;
writeln;
end;
for i:=1 to n do
begin
Sum:=0;
for j:=1 to m do
Sum:=Sum+a[ i,j ];
end;
for i:=1 to n do
if sum < 0 then k:=1
else
k:=0;
writeln;
if k = 1 then writeln('Есть строки с отрицательной суммой');
if k = 0 then writeln('В массиве нет строк с отрицательной суммой');
readln;
end.
Володя Тименюк
Володя Тименюк
41 962
f:= false;
for i := 1 to N do
begin
s := 0;
for j := 1 to M do s ;= s + A[ i, j ];
if s < 0 then f := true;
end;
if f then writeln('есть') else writeln('нет');
Цикл для строки N:
_____________
Цикл для J от 0 до М :
Sum=Sum+A.J
конец цикла J
_____________
if Sum <0 then true
Sum=0
Next N
конец цикла N
Bacek Демидов
Bacek Демидов
1 363