Question

Дан массив из 7 чисел найти количество элементов кратных 5 и сумму четных чисел массива решить в паскале

Answer 1

Ответ:

если у тебе есть Паскаль,то проверь обязательно

Объяснение:

var

a:array[1..20] of integer;

i,n,k,l:integer;

begin

k:=0;

l:=0;

n:=7;

For i:=1 to n do

read(a[i]);

for i:=1 to n do begin

If a[i] mod 5=0 then inc(k);

If a[i] mod 2=0 then l:=l+a[i];

end;

for i:=1 to n do

write('кратных 5=', k, 'сумма чётных=' , l);

end.

ЭТО НЕ ПИШИ:

смотри mod это остаток от деления,и понятно,что если число кратно 2 то в остатке у него должно быть 0,и также у кратных 5 ,inc это функция которая прибавляет 1 к начальному значению

Answer 2

Для решения этой задачи в Pascal, вам нужно выполнить следующие шаги:

1. Создать массив из 7 чисел. 2. Инициализировать этот массив значениями. 3. Перебрать элементы массива, чтобы найти количество элементов, кратных 5, и вычислить сумму четных чисел.

Вот пример кода на Pascal, который выполняет это:

program ArrayExample;

var
  arr: array[1..7] of Integer;
  i, countMultiplesOf5, sumOfEvens: Integer;

begin
  // Инициализация массива
  arr[1] := 10;
  arr[2] := 25;
  arr[3] := 6;
  arr[4] := 15;
  arr[5] := 30;
  arr[6] := 8;
  arr[7] := 17;

// Инициализация переменных
  countMultiplesOf5 := 0;
  sumOfEvens := 0;

// Перебор элементов массива
  for i := 1 to 7 do
  begin
    // Проверка на кратность 5
    if arr[i] mod 5 = 0 then
      countMultiplesOf5 := countMultiplesOf5 + 1;

// Проверка на четность
    if arr[i] mod 2 = 0 then
      sumOfEvens := sumOfEvens + arr[i];
  end;

// Вывод результата
  writeln('Количество элементов, кратных 5: ', countMultiplesOf5);
  writeln('Сумма четных чисел: ', sumOfEvens);
end.

Этот код создает массив, инициализирует его значениями, затем перебирает элементы массива, проверяя кратность 5 и четность, и накапливает количество элементов, кратных 5, и сумму четных чисел. Результаты выводятся на экран.