В матрице С(8,11) найти отрицательные элементы в каждой строке и их сумму

@zatralel · Регистрация: 18.09.2013

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

8. В матрице С(8,11) найти отрицательные элементы в каждой строке и их сумму.

@erl27 · 27.11.2013, 02:30

Pascal

const
  n = 8;
  m = 11;
  
var
  S: integer;
  i, j: byte;
  C: array[1..n, 1..m] of integer;
  
begin
  randomize;
  writeln('Вводим случайную матрицу ', n, 'x', m, ':');
  writeln;
  for i := 1 to n do begin
    for j := 1 to m do begin
      c[i, j] := random(200) - 100; //случайное целое число с [-100..199]
      write(c[i, j]:5);
    end;
    writeln;
  end;
  writeln;
  writeln('Отрицательные элементы:');
  writeln;
  for i := 1 to n do begin
    S := 0;
    write(i, '-я строка: ');
    for j := 1 to m do
      if c[i, j] < 0 then begin
        write(' ', c[i, j]);
        s := s + c[i, j];
      end;
    writeln;
    if s < 0 then writeln(' сумма: ', S)
    else writeln(' отрицательных элементов нет.');
    writeln;
  end
end.

panika_, я уже договорился...

@zatralel 1 / 1 / 0 Регистрация: 18.09.2013 Сообщений: 31
		1
	В матрице С(8,11) найти отрицательные элементы в каждой строке и их сумму 27.11.2013, 00:16. Показов 1215. Ответов 1 Метки нет (Все метки) 8. В матрице С(8,11) найти отрицательные элементы в каждой строке и их сумму. 0

	27.11.2013, 02:30

Опции темы

В матрице С(8,11) найти отрицательные элементы в каждой строке и их сумму

Решение