Question

Найти сумму элементов массива кратных 7. Массив заполнить с клавиатуры. Элементы массива вывести на экран в виде столбика. (Исходные данные 10, 42, 84, 15, 14, 49, 89, 96, 63, 58) Результат 252

Answer 1

Ответ:

Буду благодарен если вы выберите этот ответ как лучший)

var arr: array[1..10] of integer;

   i, s : integer;

begin

 s := 0;

 writeln('Введите элементы массива: ');

 for i := 1 to 10 do read(arr[i]);

 writeln('Массив: ');

 for i := 1 to 10 do

 begin

   if arr[i] mod 7 = 0 then s := s + arr[i];

   writeln(arr[i]);

 end;

 writeln('Сумма элементов кратных 7: ', s);

end.