Массивы. нахождение элементов, отвечающих заданному условию. , ! - 20 1. задать датчиком случайных чисел одномерный вещественный массив u[1 .. 15]. найти и вывести на экран положительные элементы массива. 2. задать вводом с клавиатуры одномерный вещественный массив o[1 .. 13]. найти и вывести на экран минимальный элемент массива. 3. задать вводом с клавиатуры двумерный целый массив p[1 .. 5, 1 .. 7]. найти и вывести на экран отрицательные элементы массива. 4. задать датчиком случайных чисел двумерный вещественный массив s[1 .. 4, 1 .. 6]. найти и вывести на экран максимальный элемент массива.

1)это пластинка. она небольшая.  на ней сохранится картинка любая, и  информацию разную тоже на эту пластинку записывать можно. объем небольшой сохранится на ней. захочешь считать, в дисковод сунь скорей. зимой одним цветом и летом. конечно же, (диск) 1*)маленькая, плоская, в компьютер вставляется, тут же сказки, и подсказки, даже фото появляются!   (диск)  2)в ней найдешь ты без труда адрес друга, день рождения подруги.  (записная книжка) 3)скромный серый колобок, длинный тонкий проводок, ну а на коробке – две или три кнопки.  в  зоопарке есть зайчишка, у  компьютера есть … (мышка)4)б уква «ш» с напитком «кола» будут новым словом … (школа) p.s. не забудь на профиле и поставить 5

Алгоритм решения предполагает, что если в массиве не будет найдено элемента, большего 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.  этот вариант существенно длиннее, но главное, что нужно долго вглядываться в текст программы, чтобы понять, что именно она делает.