Ввести 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.