Дан одномерный массив размером 10 элементов на интервале [50; -50] определить какая…

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.