Найти количество отрицательных элементов в первой строке матрицы

@Keqpup4uk · Регистрация: 30.11.2013

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

Ребят помогите пожалуйста. Не шарю в программировании.
Заранее спасибо.

@ildwine · 30.11.2013, 21:26

Pascal

const
  n = 6;
  m = 5;
var
  a : array[1..n, 1..m] of integer;
  j, i, s : integer;
begin
  randomize;
  s := 0;
  for i := 1 to n do 
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(10) -5;
      write(a[i,j]:4);
      if (a[i,j] < 0) and (i = 1) then s := s + a[i,j]
    end;
    writeln
  end;
  writeln('сумма отрицательных первой строки: ', s)  
end.

@Keqpup4uk 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 15
		1
	Найти количество отрицательных элементов в первой строке матрицы 30.11.2013, 20:31. Показов 1788. Ответов 1 Метки нет (Все метки) Ребят помогите пожалуйста. Не шарю в программировании. Заранее спасибо. 0

	30.11.2013, 21:26

Опции темы

Найти количество отрицательных элементов в первой строке матрицы

Решение