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

Ответ:

Объяснение:

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.