Как сделать сумму чисел меньше 10,причем числа находятся в массиве в интервале 1..1000
(Паскаль)

Проще посмотри на сайте

http://www.cyberforum.ru/turbo-pascal/thread1971108.html

Вот:uses Crt; var A, B, C; integer; begin ClrScr;    while (A > -10) and (A < 10) do    while (B > -10) and (B < 10) do     begin write(' Ввести два целых числа: ');    readln(A, B);     C:= A * B; writeln(' Произведение равно: ' ,C); end; writeln(' Программа завершена.');    readln end.На выходе:uses Crt; var A, B, C; integer; begin ClrScr;    while (A > -10) and (A < 10) do    while (B > -10) and (B < 10) do     begin write(' Ввести два целых числа: ');    readln(A, B);     C:= A * B; writeln(' Произведение равно: ' ,C); end; writeln(' Программа завершена.');    readln end.

program abc;    var    a:array [1..1000] of integer;    i:integer;    sum:integer;begin    sum:=0;   for i:=1 to 1000 do        begin;        readln(a[i]);        if a[i] < 10 then            sum+=1;        end;    writeln (sum);end.