Question

Ребят, выручайте!!! Задание по Pascal. 1. В массиве А[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К. 2. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.

Answer 1

1.
var
  k, sum, n, i: integer;
  A: array of integer;
begin
  writeln('Введите размерность массива: ');
  readln(n);
  SetLength(A, n);
  writeln('Введите K: ');
  readln(k);
  writeln('Введите ', n, ' элементов массива :');
  for i := 0 to n - 1 do
  begin
    readln(A[i]);
    if A[i] mod k = 0 then sum := sum + A[i];
  end;
  writeln('Результат: ', sum);
end.

2.
var
  c, k, n, i: integer;
  B, A: array of integer;
begin
  k := 1;
  writeln('Введите размерность массива: ');
  readln(n);
  SetLength(A, n + 1);
  writeln('Введите ', n, ' элементов массива :');
  for i := 1 to n do
  begin
    readln(A[i]);
    if A[i] = 0 then 
    begin
      inc(c);
      SetLength(B, c + 1);
      B[k] := i;
      inc(k)
    end;
  end;
  writeln('Позиции нулевых элементов: ');
  for i := 1 to c do write(B[i]:3);
end.

Answer 2

Конечно, я помогу с задачами на Pascal!

Задача 1:

Для поиска суммы элементов массива, кратных заданному числу `К`, вам нужно пройти по всем элементам массива и сложить те, которые делятся на `К` без остатка.

Пример кода на Pascal:

program SumOfMultiples;

const
  N = 10; // Задайте размер массива
  K = 3;  // Задайте значение K

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

begin
  // Заполнение массива A
  for i := 1 to N do
    readln(A[i]);

// Найти сумму элементов, кратных K
  sum := 0;
  for i := 1 to N do
    if A[i] mod K = 0 then
      sum := sum + A[i];

// Вывести результат
  writeln('Сумма элементов, кратных ', K, ': ', sum);

end.

Задача 2:

Для создания массива из номеров нулевых элементов в целочисленной последовательности, просто пройдите по всем элементам и запомните номера нулевых элементов.

Пример кода на Pascal:

program ZeroIndicesArray;

const
  N = 10; // Задайте размер последовательности

var
  Sequence: array[1..N] of Integer;
  ZeroIndices: array of Integer;
  i, count: Integer;

begin
  // Заполнение последовательности
  for i := 1 to N do
    readln(Sequence[i]);

// Инициализация массива ZeroIndices
  SetLength(ZeroIndices, 0);

// Поиск нулевых элементов и запоминание их номеров
  for i := 1 to N do
    if Sequence[i] = 0 then
    begin
      SetLength(ZeroIndices, Length(ZeroIndices) + 1);
      ZeroIndices[Length(ZeroIndices)] := i;
    end;

// Вывести результат
  writeln('Номера нулевых элементов: ');
  for i := 0 to Length(ZeroIndices) - 1 do
    write(ZeroIndices[i], ' ');

end.

Обратите внимание, что в коде используется функция `SetLength` для динамического изменения размера массива `ZeroIndices`.