Сегодня! дан массив а(10) найти сумму положительных и отрицательных елементов массива. использовать ввод и вывод данных в файл и из файла (input, output) заранее .

Var     i,su1,su2: integer; a: array[1..10] of integer;     input,output: text; begin    assign(input,'input.txt');     assign(output,'output.txt');   reset(input);     rewrite(output);   for i: =1 to 10 do         read(input,a[i]);   for i: =1 to 10 do      begin                if a[i]> 0                      then                           inc(su1,a[i])           else                        inc(su2,a[i]);           end;     writeln(output,'сумма положительных: ',su1);   write(output,'сумма отрицательных: ',su2); close(input); close(output); end.

Программа считает сумму последних трех цифр: pascal: var n: longint;           sum,i: integer; begin  repeat    write ('n = ');     readln (n):   until (n> =10000) and (n< =99999);   sum: =0;   for i: =1 to 3 do    begin        sum: =sum+(n mod 10);         n: =n div 10;     end;   writeln ('summa: ',sum); end.c++: #include < iostream> using namespace std; int main() {   int n,sum = 0;       do   {       cout < < "n = ";       cin > > n;   }   while (n< 10000 || n> 99999);   for (int i = 1; i< =3; i++)   {       sum+=n%10;       n/=10;   }     cout < < "summa: " < < sum < < endl;       return 0; }

#include< iostream> #include< cstring> using namespace std; int main() { string input=""; string key=""; std: : cout< < "enter the string to be coded: \t"; std: : getline(std: : cin,input); std: : cout< < "\nenter key: \t"; std: : getline(std: : cin,key); int keyl=key.length(); int inputl=input.length(); for(int j=0; keyl< inputl; j++)     {         key+=key[j]; keyl++;     } cout< < "\nkey: \t"< < key; string encrypted=""; for(int i=0; i< keyl; i++)       {               encrypted+=key[i]^input[i];         }   std: : cout< < "\nencrypted data: \t"< < encrypted; string unencrypted=""; for(int i=0; i< keyl; i++)         {         unencrypted+=encrypted[i]^key[i];         } std: : cout< < "\nunencrypted: \t"< < unencrypted; return 0;   }