Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов

@87781891293 · Регистрация: 28.02.2013

Студворк — интернет-сервис помощи студентам

Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов. Задачу решить двумя способами: с использованием дополнительного одномерного массива и без него.

Kodzaev · 28.02.2013, 17:55

Сообщение от 87781891293

без него

Pascal

Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m: Byte;
  s: Integer;
BEGIN
Write('Введите кол-во строк: ');
Readln(n);
Write('Введите кол-во столбцов: ');
Readln(m);
For i:=1 to n do
begin
  s:=0;
  For j:=1 to m do
  begin
    x[i,j]:=Random(10)-3;
    If x[i,j]<0 Then s:=s+x[i,j];
    Write(x[i,j]:4);
  end;
  Write('    SUM= ',s);
  Writeln
end;
END.

Добавлено через 2 минуты

Сообщение от 87781891293

с использованием дополнительного одномерного массива

Pascal

Var
  x: Array[1..10,1..10] of Integer;
  y: Array[1..10] of Integer;
  i,j,n,m: Byte;
  s: Integer;
BEGIN
Write('Введите кол-во строк: ');
Readln(n);
Write('Введите кол-во столбцов: ');
Readln(m);
For i:=1 to n do
begin
  s:=0;
  For j:=1 to m do
  begin
    x[i,j]:=Random(10)-3;
    If x[i,j]<0 Then s:=s+x[i,j];
    Write(x[i,j]:4);
  end;
  y[i]:=s;
  Writeln
end;
For i:=1 to n do
Writeln('SUM(',i,')=',y[i]);
END.

@87781891293 · 28.02.2013, 18:24 **[ТС]**

Спасибо!

@87781891293 0 / 0 / 0 Регистрация: 28.02.2013 Сообщений: 40
		1
	Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов 28.02.2013, 17:17. Показов 7564. Ответов 2 Метки нет (Все метки) Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов. Задачу решить двумя способами: с использованием дополнительного одномерного массива и без него. 0

@87781891293 0 / 0 / 0 Регистрация: 28.02.2013 Сообщений: 40
	28.02.2013, 18:24 [ТС]	3
	Спасибо! 0

Опции темы

Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов

Решение