const N=18;
var
mas: array[1..N] of integer;
i,sum: integer;
begin
sum:=0;
write('Введите элементы массива: ');
for i:=1 to N do
begin
write(i, ' элемент: ');
readln(mas[i]);
if mas[i] < 10 then
sum:=sum+mas[i];
end;
writeln('Сумма элементов массива меньших 10: ', sum);
end.
Объяснение:
program ArraySum;
var
Numbers : array[1..18] of real;
Result : real;
i : integer;
begin
Result := 0;
for i:= 1 to 18 do begin
Write('Input ', i ,'th element of array');
ReadLn (Numbers[i]);
end;
for i:= 1 to 18 do begin
if Numbers[i] < 10 then Result := Result + Numbers[i];
end;
Writeln('Result = ', Result:5:2);
end.
