1.найдите сумму элементов
2.сформируйте массив

var x, y, i, c, s: integer;begin     readln(x, y);     if (x < y) then     begin        for i := x to y do        begin             c := c + 1;             s := s + i;        end;        writeln('S = ', s, ' C = ', c);     end;end.2)const N = 10;var a, c: array [0..N] of integer;    i: integer;begin     for i := 0 to N do         a[i] := random(50);              for i := 0 to N do     begin         if (a[i] mod 2 = 0) then            c[i] := a[i] * a[i]         else             c[i] := 2 * a[i] * i;     end;{Вывод массива, это для проверки, не обязательно, но если хотите...}     for i := 0 to N do         writeln('[', i, '] => ', c[i]);end.Учителям информатики очень лень говорить домашку х)