Question

Помогите пожалуйста написать программу на языке pascal по этому заданию. Заполните массив А из 100 элементов последовательно идущими целыми числами от 1 до 100. Напишите программу, которая вычислит в этом массиве сумму элементов, кратных двум и оканчивающимся на 6.

Answer 1

var

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

i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

begin

a[i]:=i;

if (a[i] mod 2 = 0) and (a[i] mod 10 = 6) then

sum:=sum+a[i];

end;

writeln(sum);

end.

Answer 2

Конечно, вот программа на языке Pascal, которая заполняет массив из 100 элементов последовательно идущими целыми числами от 1 до 100, а затем вычисляет сумму элементов, кратных двум и оканчивающимся на 6:

pascalCopy code
program SumOfMultiples;
var
  A: array[1..100] of integer;
  i, sum: integer;
begin
  // Заполняем массив A последовательными числами от 1 до 100.
  for i := 1 to 100 do
  begin
    A[i] := i;
  end;

  // Инициализируем сумму нулем.
  sum := 0;

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

  // Выводим результат.
  writeln('Сумма элементов, кратных 2 и оканчивающихся на 6: ', sum);
end.

Эта программа создает массив A, заполняет его числами от 1 до 100, а затем проходит по массиву, суммируя элементы, которые соответствуют вашим условиям (кратные двум и оканчивающиеся на 6). Результат будет выведен на экран.