ИНФОРМАТИКА, ПОМОГИТЕ. ПАСКАЛЬ, МАССИВЫ.
Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
2) произведение элементов, стоящих на чётных местах;
3) количество отрицательных элементов.
4) Ввести с клавиатуры 12 элементов числового массива. Все положительные увеличить на 100, все отрицательные обнулить.
Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
2) произведение элементов, стоящих на чётных местах;
3) количество отрицательных элементов.
4) Ввести с клавиатуры 12 элементов числового массива. Все положительные увеличить на 100, все отрицательные обнулить.
More Questions From This User See All
Answers & Comments
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;