3. Дан массив типаwordразмерностьюn. Найти сумму всех элементов, не превышающих заданногоm, далее вывести на экран.

program Project3;

{$APPTYPE CONSOLE}

uses

SysUtils,

Windows;

//Program Zadanie_3;

//Uses Crt;

Const K = 100;

Var

N,i,M,S:Word;

A:Array[1..K] of Word;

Begin

//ClrScr;

Write('Number of elements array = ');

Readln(N);

If (N>0) and (N<100) Then

Begin

Writeln('Elements of array...');

For i:=1 To N Do

Begin

Write('A[',i,'] = ');

Readln(a[i]);

End;

Write('Number M = ');

Readln(M);

S:=0;

For i:=1 To N Do

If (A[i]<=M) Then S:=S+A[i];

Writeln;

Writeln('Summa of elements <= M == ',S);

End

Else Writeln('Uncorrectly number N');

Writeln('For exit press any key');

Readln;

end.