Question

Дан одномерный массив С, размерностью 5. Элементы массива это целые числа из промежутка [0;50] Напишите программу на языке Паскаль, вычисляющую сумму элементов массива, которые больше 4 и кратны 6.
УМОЛЯЮ ПОМОГИТЕ ПОЖАЛУЙСТА ​​

Answer 1

program SumElements;

const

 N = 5;

var

 C: array[1..N] of integer;

 i, sum: integer;

begin

 sum := 0;

 for i := 1 to N do

 begin

   readln(C[i]);

   if (C[i] > 4) and (C[i] mod 6 = 0) then

     sum := sum + C[i];

 end;

 writeln('Sum of elements that are greater than 4 and divisible by 6: ', sum);

end.