дан одномерный массив,получить удвоенную сумму всех положительных членов массива и найти сумму чисел,которые не четные и отрицательные пожалуйста умоляю помогите мне

const n=10;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.

спасибо большое

заработало?) Не за что.

нет

жалко,что фотографии нелбзя отправлять,мне информатик ее поменял и сказал,что рандом там не нужен,он поменял ее она всеровно не работает,одни нули какие-то

const n=10;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