Ввести N целых натуральных чисел в массив и вывести его на экран (1 ... 1000)

Подсчитать сумму всех элементов меньше 10

Найти количество нечетных элементов кратных 7

Паскаль

С var самостоятельно))

read (n) ;

for i: = 1 to n do begin

read (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.