Дан массив вещественных чисел . вывести на экран новое состояние массива , в котором все положительные элементы увеличились в 2 раза , ф отрицательные - уменьшились в 2 раза.

program z1; uses crt; var a: array [1..10] of real; i: integer; beginclrscr; for i: =1 to 10 dobegina[i]: =random(10)-1; write (a[i],' '); end; for i: =1 to 10 dobeginif a[i]> 0 then a[i]: =2*a[i]else if a[i]< 0 then a[i]: =a[i]/2; end; writeln (); for i: =1 to 10 dowrite (a[i],' '); end.

Const   alf='аеёиоуыэюяаеёиоуыэюя';   var  s: string;   i,j,k: integer; begin; s: ='молодая княгиня болконская приехала с работой в шитом золотом бархатном мешке. ее хорошенькая, с чуть черневшимися усиками верхняя губка была коротка по зубам, но тем милее она открывалась и тем еще милее вытягивалась иногда и опускалась на нижнюю. как это бывает у вполне привлекательных женщин, недостаток ее — короткость губы и полуоткрытый рот — казались ее особенною, собственно ее красотой. всем было весело смотреть на эту полную здоровья и живости хорошенькую будущую мать, так легко переносившую свое положение. старикам и скучающим, мрачным молодым людям казалось, что они сами делаются похожи на нее, побыв и поговорив несколько времени с ней. кто говорил с ней и видел при каждом слове ее светлую улыбочку и блестящие белые зубы, которые виднелись беспрестанно, тот думал, что он особенно нынче любезен. и это думал каждый.'; for i: =1 to length(s) do   for j: =1 to length(alf) do     if s[i]=alf[j] then inc(k); writeln(k); end.       ответ: 303

//массив отсортировать, удалить повторные #include < iostream> #include < list> #include < cstdlib>   #include < ctime>   #include < iomanip> using namespace std;   int main()  {        int j,n;     list< int> lst;     list< int> : : iterator it1; // начальная установка генератора случ. чисел       srand(time(null)); //заполнение списка      cout< < "n = ";   cin> > n;       for (j=0; j< n; j++)       lst.push_back(rand() % 10); //вывод на экран         cout< < "initial array:   ";         for (it1=lst.begin(); it1! =lst.end(); it1++)       cout< < *it1< < " "; //сортировка, удаление повторных         lst.sort();         lst.unique(); //вывод списка         cout< < endl< < "after removing:   ";         for (it1=lst.begin(); it1! =lst.end(); it1++)       cout< < *it1< < " ";         cout< < endl;         system("pause");         return 0;   }  в варианте без сортировки (что, вообще говоря, не принципиально)  убираете строку   lst.sort();