задачу решить! размерность массива вводится с клавиатуры. Элементы целочисленного массива — числа из [-30-70].Есть ли среди чисел м

Пожалуйста помогите задачу решить!размерность массива вводится с клавиатуры. Элементы целочисленного массива - числа из [-30;70].Есть ли среди чисел массива числа кратыне 7-и? Если да то сколько их?Сколько элементов массива находятся на позициях,кратных 7-и. Напечатайте на экране и количество таких элементов и сами эти элементы

  • var
      c, n, i: integer;
      a: array  of integer;
    begin
      randomize;
      writeln('Введите размер массива: ');
      read(n);
      SetLength(a, n);
      writeln('Массив: ');
      for i := 0 to n - 1 do
      begin
        a[i] := random(101) - 30;
        write(a[i]:4);
        if (a[i] mod 7 = 0) and (a[i] <> 0) then inc(c);
      end;
      writeln;
      writeln('Кол-во элементов кратных семи: ', c);
      for i := 0 to n - 1 do
         if (a[i] mod 7 = 0) and (a[i] <> 0) then write(a[i]:4);
    end.
  • uses crt;
    var a: array [1..1000] of integer;
        n,x,el,pos:integer;
    begin
         el:=0; pos:=0;
         write('Размерность массива:');
         readln(N);
         for x:=1 to N do
         begin
              a[x]:=random(101)-30;
              write(a[x]:4);
              if a[x] mod 7=0 then inc(el);
         end;
         writeln;
         writeln('Элементов, кратных 7:',el);
         writeln('Элементы на позициях, кратных 7:');
         for x:=1 to N do
             if x mod 7 =0 then
             begin
                  inc(pos);
                  write(a[x]:4);
             end;
         writeln;
         writeln('Таких позиций:',pos);
    end.
для bottom