Question

написать программу паскаль

дана последовательность чисел : 2, 7, 15, 29, 17, 27

нужно посчитать сумму чисел, которые оканчиваются на 7

Answer 1

const

 arr: array [1..6] of integer = (2, 7, 15, 29, 17, 27);

var

 i, sum:integer;

begin

 sum:=0;

 write('Последовательность чисел: ', #10);

 for i:= 1 to 6 do

   begin

     write(arr[i], ' ');

     if (arr[i] mod 10 = 7) then inc(sum, arr[i]);

   end;

 write(#10, 'Сумма чисел, оканчивающихся на 7 = ', sum);

end.