Массивы. Найти сумму элементов, кратных заданному числу

var
  a, max, maxi, n, i: integer;
 
begin
  read(n);
  read(max);
  maxi := 1;
  for i := 2 to n do
  begin
    read(a);
    if max < a then begin max := a; maxi := i; end;
  end;
  writeln(maxi);
end.

var
  a, k, n, i, sum: integer;
 
begin
  read(n, k);
  for i := 1 to n do
  begin
    read(a);
    if a mod k = 0 then sum := sum + a;
  end;
  writeln(sum);
end.

var
  n, i: integer;
  k, a, b: real;
  q: array[1..1000] of real;
 
begin
  read(n);
  read(a, b);
  
  if a < 0 then q[1] := a - b
  else q[1] := a - a;
  
  if b < 0 then q[2] := b - b
  else q[2] := b - a;
  
  for i := 3 to n do
  begin
    read(k);
    if k < 0 then q[i] := k - b
    else q[i] := k - a;
  end;
  for i := 1 to n do write(q[i], ' ');
end.

var      // объявление переменных
  n, i: integer;
  k, a, b: real; 
  q: array[1..1000] of real;
                                            
begin
  read(n);  // читаем количество элементов массива
  read(a, b);  // читаем первые два элемента массива, так как далее нам их нужно будет использовать создания нового массива, уже изменного
  
  if a < 0 then q[1] := a - b // делаем проверку первого числа массива на натуральность, если оно является положительным, то новому массиву мы присваиваем этот элемент минус второй элемент
  else q[1] := a - a; // тоже самое толкьо вычитаем первое число, так как оно не положителное
  
  if b < 0 then q[2] := b - b  // тоже самое со вторым числом начального массива
  else q[2] := b - a;
  
  for i := 3 to n do  // начианя от 3, так как первые два числа в начальном массиве мы уже прочитали
  begin
    read(k); // читаем I-ый элемент
    if k < 0 then q[i] := k - b  // ту же самую проверку делаем, что и для чиел A и B
    else q[i] := k - a;
  end;
  for i := 1 to n do write(q[i], ' '); // выводим новый массив
end.

var // объявление переменных
  a, k, n, i, sum: integer;
 
begin
  read(n, k); // читаем количество элементов массива (т.е N), также число k, число которому должно быть кратны элементы массива
  for i := 1 to n do  
  begin
    read(a); // читаем I-ый элемент
    if a mod k = 0 then sum := sum + a; // если это число кратно числу k, то переменной sum прибовляем I-ый элемент
  end;
  writeln(sum); // выводим 
end.

var // объявление переменных
  a, max, maxi, n, i: integer;
 
begin
  read(n); // читаем число N, количество элементов массива
  read(max); // читаем первый элемент этого массива
  maxi := 1; // так как это элемент первый, то максимальному индексу присвоим 1
  for i := 2 to n do //  начиная с двух, т.к. первый элемент уже прочли
  begin
    read(a); // мы читаем I-ый элемент
    if max < a then begin max := a; maxi := i; end; // ищем большее число
  end;
  writeln(maxi);
end.