Ответы и объяснения

2013-10-15T10:21:18+00:00
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.

Учителям информатики очень лень говорить домашку х)