Одноклеточная амёба каждые 3 часа делится на 2 клетки. определить через сколько часов амёба станет больше 200. написать программу на языке pascal abc.

Var a,t: integer; begin t: =0; a: =1; while a< 200 do   begin a: = a*2; t: =t+3 ; end; write (t); end.

Var   i: byte;   a: array[1..10] of byte;   fortune: boolean; begin   randomize;   write('элементы массива: ');   fortune: =false;   for i: =1 to 10 do begin       a[i]: =random(100);       fortune: =fortune or (a[i]=25);       write(a[i],' ')   end;   writeln;   if not fortune then writeln('нет элемента со значением 25') end. тестовые запуски: элементы массива: 86 57 51 82 5 25 20 77 67 86 элементы массива: 80 0 7 50 1 12 61 17 96 95 нет элемента со значением 25

Алгоритм решения предполагает, что если в массиве не будет найдено элемента, большего 10, то позиции этого элемента не существует и средние арифметические членов, располагающихся как после этой позиции, так и до нее, тоже не могут существовать. "современное решение" // pascalabc.net 3.0, сборка 1076 begin   var n: =readinteger('количество элементов в массиве: ');   var x: =arrrandom(n,-20,20);   writeln('массив х'); x.println;   write('ср. арифм. отрицательных элементов после первого, большего 10: ');   var a1: =x.skipwhile(x-> x< =10).where(x-> x< 0);   if a1.count=0 then writeln('пусто')   else writeln(a1.average);   write('ср. арифм. всех элементов до первого, большего 10: ');   a1: =x.takewhile(x-> x< =10);   if a1.count=0 then writeln('пусто')   else writeln(a1.average) end. тестовые просчеты: количество элементов в массиве: 15 массив х -11 11 16 -7 11 -8 10 -16 15 -15 -10 -8 -6 -13 -17 ср. арифм. отрицательных элементов после первого, большего 10: -11.1111111111111 ср. арифм. всех элементов до первого, большего 10: -11 количество элементов в массиве: 13 массив х 14 -9 1 2 12 -15 0 16 -19 16 -11 -15 -12 ср. арифм. отрицательных элементов после первого, большего 10: -13.5 ср. арифм. всех элементов до первого, большего 10: пусто количество элементов в массиве: 5 массив х -11 2 0 15 7 ср. арифм. отрицательных элементов после первого, большего 10: пусто ср. арифм. всех элементов до первого, большего 10: -3 количество элементов в массиве: 3 массив х 15 10 8 ср. арифм. отрицательных элементов после первого, большего 10: пусто ср. арифм. всех элементов до первого, большего 10: пусто "школьный вариант решения" // pascalabc.net 3.0, сборка 1076 const   nmax=50; { максимальное кол-во элементов } var   i,n,p,s1,s2,k2: integer;   x: array[1..nmax] of integer; begin   write('количество элементов в массиве: '); read(n);   randomize;   writeln('массив х');   p: =0;   for i: =1 to n do begin       x[i]: =random(41)-20;       write(x[i],' ');       if p=0 then           if x[i]> 10 then p: =i;       end;   writeln;   write('ср. арифм. отрицательных элементов после первого, большего 10: ');   if p=0 then writeln('пусто')   else begin       s2: =0; k2: =0;       for i: =p+1 to n do           if x[i]< 0 then begin s2: =s2+x[i]; inc(k2) end;       if k2=0 then writeln('пусто')       else writeln(s2/k2)   end;   write('ср. арифм. всех элементов до первого, большего 10: ');   if p=0 then writeln('пусто')   else begin       s1: =0;       for i: =1 to p-1 do s1: =s1+x[i];       writeln(s1/(p-1))   end end.  этот вариант существенно длиннее, но главное, что нужно долго вглядываться в текст программы, чтобы понять, что именно она делает.