Дано 20 чисел. Найти сумму чисел, которые меньше числа 5.

(Паскаль)

Program pr1;

uses crt;

var

n:byte; / / Размерность массива

i:byte; / / Счетчик массива

a:array[1 ... 20] of real; / / Массива чисел

S:real; / / Сумма чисел

Begin

clrscr;

write ('Введите размерность массива: ') ;

readln (n) ;

writeln ('Введите ', n,' элементов') ;

/ / Блок ввода

for i:=1 to n do

readln (a[i]) ;

/ / Блок вывода

writeln ('Исходный массив') ;

for i:=1 to n do

write (a[i]:6:1,' ') ;

writeln;

readln;

/ / Блок инициализации

S:=0;

for i:=1 to n do

if (a[i]<5) then

S:=S+a[i];

readln;

writeln ('S = ', S) ;

End.