дан одномерный массив,получить удвоенную сумму всех положительных членов массива и найти сумму чисел,которые не четные и отрицательные пожалуйста умоляю помогите мне
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
s1,s2,i: integer;
var a: array[1..n] of integer;
begin
s1:=0; s2:=0;
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(-10,10);
write (a[i]:3);
if a[i]>=0
then s1:=s1+a[i]
else if a[i] mod 2<>0
then s2:=s2+a[i];
end;
s1:=s1*2;
writeln;
writeln ('Удвоенная сумма положительных элементов = ',s1);
writeln ('Сумма нечетных отрицательных элементов = ',s2);
end.
--------------------Результат:----------------------
Исходный массив
-2 0 8 -6 -1 6 7 -4 -7-10
Удвоенная сумма положительных элементов = 42
Сумма нечетных отрицательных элементов = -8
Randomize; s1:=0; s2:=0;
var
s1,s2,i: integer;
var a: array[1..n] of integer;
begin
s1:=0; s2:=0;
for i:=1 to n do begin
write ('Введите ',i,'-й элемент массива: ');
read (a[i]);
if a[i]>=0
then s1:=s1+a[i]
else if a[i] mod 2<>0
then s2:=s2+a[i];
end;
s1:=s1*2;
writeln;
writeln ('Удвоенная сумма положительных элементов = ',s1);
writeln ('Сумма нечетных отрицательных элементов = ',s2);
end.