Ввести массив из 7 элементов.Увеличить в 10 раз все элементы массива с нечетными...

Question

Ввести массив из 7 элементов.Увеличить в 10 раз все элементы массива с нечетными значениями. Ввести массив из 9 элементов.Подсчитать сумму отрицательных элементов массива. Ввести массив из 4 элементов.Подсчитать произведение всех элементов массива. Пж хэлпаните)))

Answer 1

1)  

var mas:array[1..7] of integer;

    i:integer;

begin

writeln('Введите 7 целых чисел:');

for i:=1 to 7 do

begin

readln(mas[i]);

if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;

end;

writeln('Изменённый массив:',mas);

end.

2) var mas:array[1..9] of integer;

    i,b:integer;

begin

writeln('Введите 9 целых чисел:');

for i:=1 to 9 do

begin

readln(mas[i]);

if(mas[i]

end;

writeln('Сумма отрицательных элементов= :',b);

end.

3) var mas:array[1..4] of integer;

    i,b:integer;

   

 

begin

writeln('Введите 4 целые числа:');

b:=1;

for i:=1 to 4 do

begin

readln(mas[i]);

b:=b*mas[i];

 

end;

writeln('Произведение чисел= ',b);

end.