Решить с билет называют "счастливым", если в его номере сумма первых трех цифр равна сумме последних трех. подсчитать число "счастливых" билетов и вывести их на экран (000000 до 999999).

Var   a, n, sum1, sum2, k: longint; begin   a : = 100000;   while a < > 999999 do   begin     sum1 : = 0; sum2 : = 0;     n : = a div 1000;     sum1 : =  n div 100 + (n div 10) mod 10 + n mod 10;     n : = a mod 1000;     sum2 : = n div 10 + (n div 100) mod 10 + n mod 10;     if sum1 = sum2 then     begin       writeln(a, ' - "счастливый" билет');       k : = k + 1;     end;     a : = a + 1;   end;   writeln('всего ', k, ' таких билетов');   readln end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.

 

program summa;

var a: array[1..100] of real;

          i, n: integer;

              s: real;

begin

  write (‘n=’); readln (n);

  s: =0;

  for i: =1 to n do

        begin

            write (‘введитечисло’); readln (a[i]);

            s: =s+a[i];

        end;

        writeln(‘сумма   элементов равна  ‘,s);

end.