program n_1;
const n=7;
var i, m: integer; a:array [1..n] of real;
begin
m:=1;
for i:=1 to n do begin
read(a[i]);
if a[i]>a[m] then m:=i;
end;
writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);
end.
1 бусинка самая маленькая 2 больше 3 больше 1,2 4 больше 1,2,3 а 5 больше 1,2,3,4. А 6 может быть равна любой из 1;2;3;4;5.
<span>const Ei=2.71
</span>i:integer;<span>
S0, S1, S2, S3: real;
</span>begin
S0:=0;
<span>for i := 1 to 30 do
begin
S0 := </span>S0<span>+</span>exp( 2 * ln(cos(i)))<span>;
end;
</span>S1:=0;
for i := 1 to 10 do
begin
S1 := S1*sin(exp( 2 * ln(i)));
end;
S2:=<span>exp( S0 * ln(Ei));
</span>S3:=exp( S1 * ln(Ei));
writeln('S= ',S2+S3);
end.
Var a,x,b:integer;y:real;
begin
writeln('a,b,x');
readln(a,b,x);
if x>=100 then y:=2*a*sqr(x)+b*sqrt(x) else y:=a*sqrt(x)+100-b*x;
writeln(y:5:2);
<span>end.</span>
1. подсистема
2. системный эффект
3. структура
4. системный подход
5. черный ящик
6. надсистема
7. природная
8. система
9. компонент
10. техническая