Дан одномерный массив размером 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
