Question

ИНФОРМАТИКА, ПОМОГИТЕ. ПАСКАЛЬ, МАССИВЫ.
Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
2) произведение элементов, стоящих на чётных местах;
3) количество отрицательных элементов.
4) Ввести с клавиатуры 12 элементов числового массива. Все положительные увеличить на 100, все отрицательные обнулить.

Answer 1

a: array [1..50] of integer;
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;

Answer 2

вот держи,будут вопросы-пиши в лс

80214c6e51fa11ca6659e06ddd4c8fcd.pas

6096c0aa3e144891a5afab77f2769281.pas

23f9d5df5d66b76a35fb1b3ff6bf74cf.pas