Ребят, выручайте!!! Задание по 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.