Помогите в составлеии программ в Pascal Abc

Question

1.Определить сколько существует «счастливых» автобусных билетов в одной серии с номерами от 000000 до 999999. 
«Счастливым» считается билет, сумма первых трех цифр которого равна сумме вторых трех цифр. 
2.С клавиатуры вводится 10 различных произвольных чисел. 
а) Найти разность между наибольшим и наименьшим из них. 
б) Порядковый номер наибольшего и наименьшего числа. 
Вычислить: 
Эту задачу нужно решать с конца, т.е., использовать цикл с уменьшающимся счетчиком – находим сначала корень из 10. 
Заранее спасибо!

jurii_6 · Accepted Answer

1) В лоб: 
Kol := 0; 
for N1 := 0 to 9 do for N2 := 0 to 9 do for N3 := 0 to 9 do 
for N4 := 0 to 9 do for N5 := 0 to 9 do for N6 := 0 to 9 do 
if N1+N2+N3 = N4+N5+N6 then Inc(Kol); 
2) Без массивов (всего 5 переменных) : 
Write('1 число = '); ReadLn(Min); Max := Min; NMin := 1; NMax := 1; 
for N := 2 to 10 do begin ReadLn(Num); if Num < Min then begin Min := Num; NMin := N; end else if Num > Max then begin Max := Num; NMax := N; end; end; 
WriteLn(Max, ' - ', Min, ' = ', Max-Min); 
WriteLn('Max[', NMax, '] = ', Max); 
WriteLn('Min[', NMin, '] = ', Min'); 
3) Y := 0; for N := 10 downto 1 do Y := Sqrt(Y + N);

nikolai_murin_2 · Answer

задача 2 
var a:array [1..10] of real; 
i,i_min,i_max:integer; 
max,min:real; 
BEGIN 
readln(a[ 1 ]); 
max:=a[ 1 ]; 
min:=a[ 1 ]; 
i_min:=1; 
i_max:=1; 
for i:=2 to 10 do 
begin 
readln(a[ i ]); 
if (a[ i ] < min) then begin min:=a[ i ]; i_min:=i; end; 
if (a[ i ] > max) then begin max:=a[ i ]; i_max:=i; end; 
end; 
writeln('Raznost'': ',max-min:2:2); 
writeln('Max: ',i_max); 
writeln('Min: ',i_min); 
Readln; 
END.