Const
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;
B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
if (A[i] > 0)and(A[i] < B) then
B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.
1. 4)
2. 1)
3. 1)
4. 4)
5. 1)
6. 3)
7. 1)
8. 2)
9. 2)
10. 4)
11. 4)
12. 3)
13. 1)
14. 1)
15. 1)
16. 2)
Б1+б2+б3+б4=7
(б1+б2+б3+б4+б5)/5=5
б1+б2+б3+б4+б5=25
б1+б2+б3+б4+б5-б1-б2-б3-б4=б5=25-7=18
Ответ:18