Question

дан одномерный массив размерностью 5 элементы массива это целые числа из промежутка [0;50]. Напишите программу вычисляющую сумму элементов массива которые больше 4 и кратны 6 (PASCAL)

Answer 1

Ответ:

Объяснение:

var
 array: array[1..5] of integer;
 sum, i: integer;
begin
 array[1] := 10;
 array[2] := 15;
 array[3] := 20;
 array[4] := 25;
 array[5] := 30;

 sum := 0;
 for i := 1 to 5 do
   begin
     if (array[i] > 4) and (array[i] mod 6 = 0) then
       begin
         sum := sum + array[i];
       end;
   end;

 writeln(sum);
end.