Дан одномерный массив С, размерностью 5. Элементы массива это целые числа из промежутка [0;50] Напишите программу на языке Паскаль, вычисляющую сумму элементов массива, которые больше 4 и кратны 6.
УМОЛЯЮ ПОМОГИТЕ ПОЖАЛУЙСТА
УМОЛЯЮ ПОМОГИТЕ ПОЖАЛУЙСТА
More Questions From This User See All
Answers & Comments
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.