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