Решить на языке программирования в turbo pascal: 1.дан массив целых чисел, состоящий из 10 элементов.заполнить его с клавиатуры. найти: -удвоенную сумму положительных элементов; -вывести индексы тех элементов, значения которыхбольше значения предыдущего элемента(начиная со второго 2.определить, есть ли 2 пары соседних элементов с одинаковыми знаками.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end. 

 

Частота дискретизации d = 44000 гц разрядность i = 16 бит t = 1 мин = 60 сек. стереозапись включает в себя 2 дорожки,а значит объем информации увеличивается вдвое, поэтому добавим в конечную формулу коэффициент 2. объем информации l =2*d*i*t = 44000*16*60*2=84480000 бит=10560000 байт=10мбайт. ответ: одна минута стереозаписи занимает 10мбайт. l = 700мбайт = 734003200 байт d = 44000 гц i=16 бит = 2 байта (тип звукозаписи - стерео => добавляется коэффициент 2)t=l/(d*i*2) t = 734003200/(2*44000*2) = 4170,47 сек = 69,5 мин. ответ: 69,5 минут максимальная продолжительность стереозаписи на диске 700 мбайт 

Последовательность фибоначчи. следующий элемент: 34 + 55 = 89 записываем все натуральные числа подряд и разбиваем их на цифры о, д, т, ч, п, ш, с, в, д, д, выписываем натуральные числа в ряд. каждому натуральному числу сопоставляем первую букву его названия.1 -> о (один)2 -> д (два)10 -> д (десять)11 -> о (одиннадцать)первый элемент 1. каждый следующий элемент образуется так: выделяем цифру, считаем, сколько раз она встречается подряд в этом числе, начиная с текущей позиции и приписываем в конец нового числа пару (сколько раз цифра встречается подряд, сама цифра)1) 12) 1 встречается 1 раз. значит, пишем 113) 1 встречается 2 раза. значит, пишем 213) 2 встречается 1 раз. значит, пишем 12. 1 встречается 1 раз. значит, пишем 11. получилось 12114) 1 встречается 1 раз. значит, пишем 11. 2 встречается 1 раз. значит, пишем 12. 1 встречается 2 раза. значит, пишем 21. получилось 111221.5) аналогично6) 3 встречается 1 раз. значит, пишем 13. 1 встречается 1 раз. значит, пишем 11. 2 встречается 2 раза. значит, пишем 22. 1 встречается 2 раза. значит, пишем 21. получилось 13112221