Дан одномерный массив размером 10 элементов на интервале [50--50] определить какая сумма больше четных или нечетных элементов массива 9класс Паскаль

Дан одномерный массив размером 10 элементов на интервале [50;-50] определить какая сумма больше четных или нечетных элементов массива (9класс Паскаль)

     

          if (s1>s2) then writeln('Сумма нечётных элементов массива больше !')

          clrscr;

        readkey;

    var a:array[1..10] of integer;

           s1,s2:longint 

          writeln;

     

          for i:=1 to 10 do

    Uses Crt;

    end.

                            else s2:=s2+a[i];    

                     write(a[i]:3);  

  • Program TwoSums;

                    if (i mod 2)<>0 then s1:=s1+a[i]

          writeln('Сумма нечётных элементов массива:',s1);

     begin

     

           writeln('Сумма чётных элементов массива:',s2);

           i:integer;  

          write('Исходный массив:');

          s1:=0;s2:=0;   

     

                begin  

                    a[i]:=random(101)-50;

     

           if (s1=s2) then writeln('Суммы равны');

                 end;

     

                   else writeln(' Сумма чётных элементов массива больше !'); 

Внимание, только СЕГОДНЯ!