Pascal. Задача 4-15

Пользователь вводит цифры некоторого билета в массив. Выяснить является ли билет счастливым (т.е. сумма элементов первой половины массива равна сумме элементов второй половины).

Решение

Const
  N = 10;
var
  i, sum : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите ', i ,'-ую цифру билета: ');
      read(A[i]);
    end;
  sum := 0;
  for i := 1 to N div 2 do
    sum := sum + A[i];
  for i := N div 2 + 1 to N do
    sum := sum - A[i];
  if sum = 0 then
    writeln('Билет счастливый')
  else
    writeln('Билет не счастливый');
end.

◄▲►