Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Написал программу сказали не правильно
составьте программу, выясняющую есть ли в двумерном массиве 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.
1 | Автор: ВАно | 2014-04-23, 12:30   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: