Проблемы с Паскалем

[Сергей Галкин]

Проблемы с Паскалем

Пмогите решить две задачи: Составить программу для вывода отрицательных элементов каждой строки матрицы A 6*7.Если в строке отрицательных элементов нет, то вывести сообщение об этом.

Сформировать массив L(6) состоящий из отрицательных элементов каждой строки, если отрицательных элементов нет, то L(i)=0. Помогите пожалуйста с первой пожалуйста. :tehnari_ru_121:

 

[Vladimir_S]

Пмогите решить две задачи: Составить программу для вывода отрицательных элементов каждой строки матрицы A 6*7.Если в строке отрицательных элементов нет, то вывести сообщение об этом.

Сформировать массив L(6) состоящий из {суммы} отрицательных элементов каждой строки, если отрицательных элементов нет, то L(i)=0. Помогите пожалуйста с первой пожалуйста. :tehnari_ru_121:

Вот Вам обе "в одном флаконе". Условие задачи 2 пришлось "подправить", иначе непонятно. Если я не так понял, сообщите.

VAR
 A:ARRAY[1..6,1..7] of INTEGER;
 i,j:INTEGER;
 L:ARRAY[1..6] of INTEGER;
BEGIN
 Randomize;
 For i:=1 to 6 do
  begin
   For j:=1 to 7 do
    begin
     A[i,j]:=Random(100)-20;
     Write(A[i,j]:5);
    end;
   Writeln;
  end;

 WriteLn;

 For i:=1 to 6 do L[i]:=0;

 For i:=1 to 6 do
  begin
   For j:=1 to 7 do
    If A[i,j]<0 then
     begin
      Write(A[i,j]:5);
      L[i]:=L[i]+A[i,j];
     end;
   If L[i]=0 then
    Write('Line ',i,' contains no negative elements');
   Writeln;
  end;

 WriteLn;

 For i:=1 to 6 do
  Write(L[i]:5);

 WriteLn;

 ReadLn;
END.

 

[Сергей Галкин]

Спасибо за помощь