Ввести N целых натуральных чисел в массив и вывести его на экран (1..1000)
Подсчитать сумму всех элементов меньше 10
Найти количество нечетных элементов кратных 7
Паскаль

(могу написать и вар, но лучше Вы сами вчитаетесь в код)

с var самостоятельно))read(n);for i:= 1 to n do beginread(a[i]); write (a[i],' ');if (a[i]<10) then sum:=sum+a[i];if ((a[i] mod 2 <> 0) and(a[i] mod 7 = 0)) then Inc(k);end;writeln;writeln(sum);writeln(k);end.

var  N, i, Sum, Odds: integer;  A: array [1..1000] of integer;begin  sum := 0;  Odds := 0;  write('Введите N: ');  readln(N);  writeln('Заполнение массива.');  for i := 1 to N do  begin    write('Введите A[', i, '] = ');    readln(A[i]);    if A[i] < 10 then      sum := sum + A[i];    if (A[i] mod 7 = 0) and (A[i] mod 2 <> 0) then      Odds := Odds + 1;  end;  writeln;  writeln('Ваш массив.');  for i := 1 to N do    write(A[i]:4);  writeln;  writeln('Сумма элементов меньше 10 = ', sum);  writeln('Количество нечетных элементов кратных 7 = ', Odds);end.