Question

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

Answer 1

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.