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

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

  • 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.





Внимание, только СЕГОДНЯ!