1. Даны два целых числа A и B (A < B). Найти сумму всех чисел от A до B включительно.

2. Даны два целых числа A и B (A 0). Найти произведение всех чисел от A до B включительно.

3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел.

4. Дан массив целых чисел Х. Найти количество отрицательных элементов массива.

5. Дан массив целых чисел Х. Найти максимальный элемент массива.

1.

Program suma;

Var a, b, sum, i:integer;

begin

read (a) ;

read (b) ;

for i:=a to b do sum:=sum+i;

write (sum) ;

end.

2.

Program multip;

Var a, b, m, i:integer;

begin

m:=1;

read (a) ;

read (b) ;

for i:=a to b do m:=m*i;

write (m) ;

end.

3.

Program suma2;

Var a:array [1 ... 5] of integer;

i, sum:integer;

begin

for i:=1 to 5 do read (a[i]) ;

for i:=1 to 5 do

sum:=sum + a[i] * a[i];

write (sum) ;

end.

4.

Program cnt_nopos;

Var a:array [1 ... 5] of integer;

i, cnt:integer;

begin

for i:=1 to 5 do read (a[i]) ;

for i:=1 to 5 do

if a[i] < 0 then Inc (cnt) ;

write (cnt) ;

end.

5.

Var a:array [1 ... 5] of integer;

i, max:integer;

begin

for i:=1 to 5 do read (a[i]) ;

max:=a[1];

for i:=1 to 5 do

if a[i] > max then

max:=a[i];

write (max) ;

end.