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

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

  • Program TwoSums;

    Uses Crt;

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

           i:integer;  

           s1,s2:longint 

     

     begin

          clrscr;

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

          s1:=0;s2:=0;   

          for i:=1 to 10 do

                begin  

     

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

                     write(a[i]:3);  

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

                            else s2:=s2+a[i];    

                 end;

     

          writeln;

     

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

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

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

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

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

        readkey;

     

    end.

     

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *