Надеюсь я все учел, достаточно объемная и сложная задача...
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.
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"
A = 5
b = 10
from math import gcd
for i in range(1, a*b+1):
if gcd(a, i) != 1 or gcd(b, i) != 1:
print(i, end=' ')
N - количество символов в алфавите
i - число бит, которым кодируется каждый символ алфавита
I - весь объём
