Question

Прога на паскаль 30 баллов Заполнить линейный массив по формуле: х[i]=2+i*5; Найти сумму элементов массива ,кратных 4 и 5.

Answer 1

Var x: array[0..100] of Integer;
i,n,sum: Integer;
begin
writeln('Сколько ячеек заполнять?');
readln(n);
for i:=0 to n do
begin
x[i]:=2+i*5;
writeln(x[i]);
end;
for i:=0 to n do
begin
if (x[i] mod 5=0) or (x[i] mod 4=0) then
Inc(sum,x[i]);
end;
writeln('Сумма: ',sum);
end.

Answer 2

Для решения этой задачи на языке Pascal, нужно объявить массив, заполнить его значениями по заданной формуле, а затем вычислить сумму элементов, кратных 4 и 5. Вот пример программы, которая выполняет это действие:

pascalCopy code
program SumOfMultiples;

const
  N = 10; // Размер массива (количество элементов)

var
  x: array[1..N] of integer; // Объявление массива
  i, sum: integer;

begin
  // Заполнение массива по формуле
  for i := 1 to N do
    x[i] := 2 + i * 5;
  
  // Вычисление суммы элементов, кратных 4 и 5
  sum := 0;
  for i := 1 to N do
  begin
    if (x[i] mod 4 = 0) and (x[i] mod 5 = 0) then
      sum := sum + x[i];
  end;

  // Вывод результата
  writeln('Массив x:');
  for i := 1 to N do
    writeln('x[', i, '] = ', x[i]);

  writeln('Сумма элементов массива, кратных 4 и 5: ', sum);
end.

В этой программе мы объявляем массив x с помощью var x: array[1..N] of integer;, где N - размер массива. Затем мы заполняем его значениями по формуле x[i] = 2 + i * 5;.

Далее мы инициализируем переменную sum для хранения суммы элементов, кратных 4 и 5. Затем мы проходим по всем элементам массива с помощью цикла for i := 1 to N do и проверяем каждый элемент на кратность 4 и 5 с помощью условия if (x[i] mod 4 = 0) and (x[i] mod 5 = 0) then. Если элемент удовлетворяет этому условию, то его значение прибавляется к переменной sum.

Наконец, выводим содержимое массива и сумму элементов, кратных 4 и 5.