Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых

uses crt; var a: array [1..10] of real; i,k,m,n: integer; begin  clrscr;   k: =0; n: =0; m: =0;   writeln('massiv: ');   for i: =1 to 10 do  begin    read(a[i]);     if (a[i]< 0) then k: =k+1;     if (a[i]> 0) then m: =m+1;     if (a[i]=0) then n: =n+1;   end;   writeln('отрицательных: ', k);   writeln('положительных: ', m);   writeln('нулевых: ',n); end.

Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22   var a : array [ 1.. 10 ] of integer; i ,p ,o ,n : byte; begin for i : = 1 to 10 do begin write ( 'введите ' ,i , ' число: ' ); readln (a [i ] ); end; for i : = 1 to 10 do begin if (a [i ] > 0 ) then inc (p ) else if (a [i ] < 0 ) then inc (o ) else inc (n ); end; writeln ( 'количество положительных элементов = ' ,p ); writeln ( 'количество отрицательных элементов = ' ,o ); writeln ( 'количество нулевых элементов = ' ,n ); end.

#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

Так как информации о том, каким образом должен выплачиваться кредит, нет, то для расчета взят вариант аннуитетного платежа. результаты расчетов показаны в прилагаемом файле. формулы для такого варианта: для ячеек 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  получаются копированием)