Даны натуральные n, целые числа a1, … , an. найти сумму неповторяющихся элементов массива.

  for i: =1 to n do          begin           k: =0;             for j: =1 to n do               if a[i]=a[j]then inc(k);               if k=1 then begin                   write (a[i],' ');                   s: =s+a[i];                 end;       end;

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

 

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта