Дана матрица а(n*m получить вектор (n), где b(i) равно количеству отрицательных элементов в строке.

проверено - работает на паскаль авс

 

program mashaaq; uses crt; const n=12; const m=15; var  a: array[1..n,1..m] of integer;   b: array[1..n] of integer;   i,j,minus : integer; begin  randomize;   for i: =1 to n do      for j: =1 to m do          a[i,j]: = random(101)-50; //заполняем массив случайными числами  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   for i: =1 to n do //просматриваем строки сверху вниз      begin          minus: =0;           for j: =1 to m do //просматриваем строку              if a[i,j]< 0  then minus: =minus+1; //если найден отрицательный элемент, увеличиваем счётчик minus на единицу          b[i]: =minus; //сохраняем значение счётчика для i-й строки      end;   writeln;   {выводим матрицу а и вектор результатов в}

  {в красивой рамочке : )}  writeln('**************************************************************************');   writeln('*                                                          массив                                                    * вектор *');   writeln('**************************************************************************');   for i: =1 to n do      begin           write ('* ');           for j: =1 to m do              write(a[i,j]: 4); //выводим строку массива          writeln('  *    ',b[i]: 2,'    *');   //дописываем справа значение вектора в для этой строки      end;     writeln('**************************************************************************'); end.

Так как информации о том, каким образом должен выплачиваться кредит, нет, то для расчета взят вариант аннуитетного платежа. результаты расчетов показаны в прилагаемом файле. формулы для такого варианта: для ячеек b6-b9:   =$b$2*($c$2+$c$2/(степень((1+$c$2); $d$2)-1)) в ячейке d6:   =e5*$c$2 (формулы в  d7-d9 получаются копированием) в ячейке c6:   =b6-d6    (формулы в c7-c9  получаются копированием) в ячейке e6:   =e5-c6 (формулы в e7-e9  получаются копированием)

#include < stdio.h>   main()  {  int x;   int n=0; int a=20; int b=50; file *fin, *fout; fin = fopen( "input.dat", "r" );   fout = fopen( "output.dat", "w" ); while (fscanf(fin, "%d", & x) == 1) {   if ((x > = a)& & (x < = b)) {     fprintf ( fout, "%d\n", x );     n++;   } } fprintf ( fout, "%d\n", n); fclose ( fout ); fclose ( fin ); } пример: исходный файл  input.dat: 9745122851376549полученный файл  output.dat: 452837494