составьте программу, выясняющую есть ли в двумерном массиве A(N,M) строки, сумма элементов которых есть отрицательное число (Надо что бы считал сумму строки и выводил эту строку в которой отрицательный элементы)
program mas;
var
a:array [1..100,1..100] of integer;
i,j,n,m,s:integer;
begin
writeln ('Введите размер масссива n,m:');
readln(n);
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j],' ');
end;
writeln;
end;
s:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
s:=s+a[i,j];
end;
writeln;
end;
if s<0 then write(' сумма элементов отрицательное число =',s)
else write('Нет таких элементов');
writeln;
readln;
end.
|
|
|
|
