Составить программу нахождения числа строк матрицы А(N,N), сумма элементов у которых отрицательна.

[Irisk]

ЗАДАЧА ПО ПАСКАЛЮ
Составить программу нахождения числа строк матрицы
А(N,N), сумма элементов у которых отрицательна.

Ввод из текстового файла, вывод в файл без типа

Помогите пожалуйста,завтра на зачете нужно будет

[Serge_Bliznykov]

1) язык программирования не указан.
2) какие наработки есть?
3) а что тут сложного - в цикле проходите по матрице, считаете сумму по строке.
Если отрицательная - увеличиваете счётчик таких строк.
После цикла пишите счётчик в файл (вот, конечно, небольшая заморочка с файлом без типа.. Но, раз уж так хотят состовители задачи,
описывайте и пишите примерно так:

var f : file;
.....
   Rewrite(f,1); 
   BlockWrite(f, CountOfNegativeRows, SizeOf(CountOfNegativeRows));

[goto ∞]

вот примерная наводка..

....
read(n) ;
assign(fi,'input.txt');
reset(fi);

читаем из файла(важно что бы в файле было элементов больше или равно 'n*n')

for i := 1 to n do
        for j :=1 to n do
          read(fi,a[i,j]);
          close(fi);

находим, если есть такие строки то записываем, файл конечно текстовый..

 
 ...
 str := 1;
 assign(fo,'output.txt');
 rewrite(fo);
  while str <= n do
   begin
   sum := 0;
    for j := 1 to n do
      sum := sum + a[str,j];
       if sum < 0 then
         write(fo,str); 
         inc(str);
   end;
  close(fo);
...

[goto ∞]

нет времени на точное составление..

[Irisk]

напишите пожаааалуйста полностью...

пожалуйста(((

goto ∞, напишите пожалуйста целиком программу...