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

Question

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

Comments

Нужно проверить на то, меньше ли сумма 10?

---

Нужно посчитать сумму всех элементов,входящих в массив которые меньше 10

Answer 1

Вот:

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.

Comments

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

---

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

Answer 2

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.