Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
1.2 kB
1
Indexable
Never
program SumOfElements;

var
  A: array[1..6] of integer;
  sum_of_elements_1, sum_of_elements_2, num, hundreds, tens, ones: integer;
  i: integer;

begin
  A[1] := 123;
  A[2] := 234;
  A[3] := 345;
  A[4] := 456;
  A[5] := 555;
  A[6] := 666;

  sum_of_elements_1 := 0;
  sum_of_elements_2 := 0;

  for i := 1 to 6 do
  begin
    num := A[i];
    hundreds := num div 100;
    tens := (num div 10) mod 10;
    ones := num mod 10;
    
    // Поиск суммы для чисел, у которых число десятков больше числа единиц
    if tens > ones then
      sum_of_elements_1 := sum_of_elements_1 + num;

    // Поиск суммы для чисел, у которых все цифры одинаковые
    if (hundreds = tens) and (tens = ones) then
      sum_of_elements_2 := sum_of_elements_1 + num;
  end;

  writeln('Сумма всех элементов массива А, у которых число десятков больше числа единиц: ', sum_of_elements_1);
  writeln('Сумма всех элементов массива А, в десятичной записи которых все цифры одинаковые: ', sum_of_elements_2);
end.
Leave a Comment