Ответы на вопрос:
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.
Популярно: Информатика
-
QWERTY12345P22.01.2021 13:53
-
вика366216.03.2022 23:27
-
anonims12345678931.01.2023 15:41
-
lolEzzGG26.03.2023 14:12
-
Аркаша228133710.04.2022 02:54
-
Амина950521.10.2022 08:07
-
PWBC12.08.2021 00:16
-
yamarinaigorp00vfk29.03.2023 08:28
-
alekslisalove17.04.2020 07:06
-
qwerty88225.09.2021 11:19