ТІ ХТО ШАРЯТЬ ЗА ПАСКАЛЬ БУДЬ ЛАСКА ДОПОМОЖІТЬ СКЛАСТИ МАСИВИ. ДАЮ 30 БАЛІВ
1. Для заданого масиву A(1…N) знайти суму всіх елементів, не більших заданого числа N.
2. Скласти програму заміни і-того стовпця масиву A(1..K,1..N) на число V.

program SumLessN;

const

 MAX_N = 100;

var

 A: array[1..MAX_N] of integer;

 N, i, sum: integer;

begin

 writeln('Enter the value of N:');

 readln(N);

 writeln('Enter the array A:');

 for i := 1 to N do

   readln(A[i]);

 sum := 0;

 for i := 1 to N do

   if A[i] <= N then

     sum := sum + A[i];

 writeln('Sum of elements less than or equal to N:', sum);

end.