Надеюсь я все учел, достаточно объемная и сложная задача...
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.
Филологические предшественники информатики: риторика и поэтика,герменевтика,семиотика.
Программирование необходимо для реализации алгоритмов на машине, для ускорения или автоматизации работы. Пример: создания калькулятора, с помощью него скорость счёта возрастает во много раз.
Место посадки Янта изабражено на рисунке 2.Под рисунками 1,3,4 должно быть отмечено АО четыре знака +. Под рисунком 2 - пять заков +.Возможные ответы к Янту на которые можно ответить ДА или НЕТ: На берегу есть цветы? На берегу есть животные?,В лодке есть человек? Возможные ответы к Янту накоторые нельзя ответить Да или НЕТ: Что делает человек в лодке? Какие растения растут на берегу? Сколько человек в лодке?
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
