Информатика, . паскаль, массивы. задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. найти: 2) произведение элементов, стоящих на чётных местах; 3) количество отрицательных элементов. 4) ввести с клавиатуры 12 элементов числового массива. все положительные увеличить на 100, все отрицательные обнулить.
i, pr, otr: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := random(50) - 5;
otr := 0;
pr := a[2];
for i := 1 to 10 do
begin
if (a[i] < 0) then inc(otr);
if (i mod 2 = 0) then
pr := pr * a[i];
end;
writeln('Отрицательных - ',otr,' Произведение - ',pr);
for i := 1 to 12 do
begin
read(a[i]);
if(a[i] > 0) then
inc(a[i],100)
else
a[i] := 0;
write(a[i],' ');
end;
end;