1.даны два целых числа a и b (a < b ). найти сумму всех чисел от a до b включительно. 2. даны два целых числа a и b (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.

Var i,k1,k2,k3: integer; x: real; begin k1: =0; k2: =0; k3: =0; for i: =1 to 100 do begin read (x); if (x< 0) then k1: =k1+1; if (x=0) then k2: =k2+1; if (x> 0) then k3: =k3+1; end; writeln ('отрицательных - ',k1); writeln ('нулевых - ',k2); writeln ('положительных - ',k3); end.