Програмний код добутку n чисел, перше з яких дорівнює x, кожне наступне у 2 рази більше від попереднього

#include <stdafx.h> #include <stdio.h> #include <locale.h>     int main() {     setlocale(LC_ALL,"RUS");     char str[] = "манрра, фр а алвл в во вовлл.";     int s = 0, i = 0, n = 0, u = 0;     int j;     for(j = 0; str[j]; j++){         if(str[j] == 'е')             s++;         if(str[j] == 'е')             i++;                     n++;         if(str[j] == 'е')             u++;                     break;     }     if(s == 1 && i == 1 && n == 1 && u == 1 )         printf("\n OK");     else printf("\n FAIL"); return 0; }

честно, я не знаю, вот оригинал, если нужно

#include <stdafx.h> #include <stdio.h> #include <locale.h>     int main() {     setlocale(LC_ALL,"RUS");     char str[] = "манрра, фр а алвл в во вовлл.";     int s = 0, i = 0, n = 0, u = 0;     int j;     for(j = 0; str[j]; j++){         if(str[j] == 'ф')             s++;         if(str[j] == 'а')             i++;         if(str[j] == 'й')             n++;         if(str[j] == 'л')             u++;         if(str[j] == '.')             break;     }     if(s == 1 && i == 1 && n == 1 && u == 1 )         printf("\n OK");     else printf("\n FAIL"); return 0; }

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.