Question

В массиве А[1...7]найти сумму чётных элементов ,кратных 7. Программа Паскаль, срочно!!

Answer 1

начало где вар, и аррау напиши сам(а)

for i=1 to 7 do

writeln(x)

k:=0;

for i=1 to 7 do

if (a[i] mod 2 =0) and (a[i] mod 7 =0)

then k:=k+1;

writeln(k)

Answer 2

Для нахождения суммы четных элементов, кратных 7, в массиве А[1...7] на языке программирования Pascal, можно воспользоваться следующим кодом:

pascalCopy code
program SumOfEvenMultiplesOfSeven;

var
  A: array[1..7] of Integer;
  i, sum: Integer;

begin
  sum := 0;

  // Заполняем массив А[1...7] значениями
  for i := 1 to 7 do
  begin
    // Пример заполнения массива, здесь можно задать свои значения
    A[i] := i * 10;
  end;

  // Вычисляем сумму четных элементов, кратных 7
  for i := 1 to 7 do
  begin
    if (A[i] mod 2 = 0) and (A[i] mod 7 = 0) then
    begin
      sum := sum + A[i];
    end;
  end;

  // Выводим результат
  writeln('Сумма четных элементов, кратных 7, в массиве А[1...7] равна: ', sum);

end.

Здесь массив A заполняется произвольными значениями, вы можете изменить его в цикле for на нужные вам числа. Программа находит сумму четных элементов, которые делятся на 7 без остатка, и выводит результат на экран.