Надеюсь я все учел, достаточно объемная и сложная задача...
Var o,l:integer;
a,b,max2:real;
procedure rip (var x,t:real; i:integer);
var q,min,max:integer;
a1:array [1..10] of integer;
begin
writeln ('Введите через пробел оценки за короткую программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
t:=a1[q]+t;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
t:=(t-max-min)/8;
writeln ('Введите через пробел оценки за произвольную программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
x:=a1[q]+x;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
x:=(x-max-min)/8;
end;
begin
For o:=1 to 6 do begin
rip (a,b,o);
If (a+b)>max2 then begin max2:=a+b; l:=o; end;
end;
writeln (l);
end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Print('Отрицательных:',ArrRandom(100,-50,50).Println
.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
-22 8 50 -18 -37 -43 3 -18 50 -2 -33 -23 -32 41 -37 -6 -20 0 -14 40 6 -43 20 25 4 12 -1 -36 -44 -46 9 35 12 30 19 1 -36 8 -30 23 -48 38 47 34 -50 -47 27 48 -31 -13 46 -46 -42 29 -43 -29 38 -26 28 2 9 -12 -25 46 40 -17 15 -12 -28 12 -21 22 -20 13 37 19 -39 37 25 1 35 1 45 19 -42 4 26 34 23 -3 14 41 31 19 -36 15 12 -49 45 18
Отрицательных: 42
Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
Var sum:real; n:integer; x,factorial,multiplier:real;
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
factorial*=n;
multiplier*=x;
sum+=multiplier/factorial;
end;
writeln(sum);
end.
Опытные модели Учебные модели<span>
</span>Научно-технические модели<span> </span>
