Сделать задание в Паскале! И в Блок-Схеме! Буду очень благодарен тем кто поможет)Или хотя...

Question

Сделать задание в Паскале!
И в Блок-Схеме!
Буду очень благодарен тем кто поможет)
Или хотя бы в Паскале сделать программу)

---

Comments

Номер

---

Имеющий нечетный индекс!

---

А удалить из массива все нечётные элементы - это удалить элементы стоящие на нечётной позиции, т.е. имеющий нечётный индекс? Или всё таки это не о месте на котором стоит число, а о самом числе?

---

Вот на второй вопрос,я затрудняюсь ответить,так как сам не шарю)

---

Походу да так.

---

я правильно понял произведение отрицательных не чётных элементов массива, это произведение отрицательных чисел с нечётным индексом?

---

Так исправляйте

---

да я уже понял(зря сейчас делал с удалением нечётных элементов

---

Там анализируется не номер, а значение

---

Понятно, тогда то решение, которое имеется, неверное.

Answer 1

Const
  n=15;
var
  x:array[1..n] of integer;
  y:array[1..(n div 2)+1] of integer;
  i,k,maxmod,xi:integer;
  p:longint;
begin
  Randomize;
  Writeln('Элементы массива');
  p:=1;
  maxmod:=-1; { меньше меньшего возможного }
  for i:=1 to n do
  begin
    x[i]:=Random(51)-25; { [-25..25] }
    Write(x[i]:4);
    if maxmod    begin maxmod:=abs(x[i]); xi:=x[i] end;
    if (i mod 2 <> 0) and (x[i]<0) then p:=p*x[i]<br>  end;
  Writeln;
  Writeln('Значение максимального по модулю элемента: ',xi);
  Writeln('Произведение отрицательных нечетных элементов: ',p);
  { удаляем элементы с нечетным номером }
  k:=1;
  while (2*k-1)<=n do<br>  begin y[k]:=x[2*k-1]; Inc(k) end;
  Writeln('Результирующий массив');
  for i:=1 to k-1 do Write(y[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
  -7   4  14  10   5   9 -21 -17   0   1 -20  13 -11 -17  12
Значение максимального по модулю элемента: -21
Произведение отрицательных нечетных элементов: 32340
Результирующий массив
  -7  14   5 -21   0 -20 -11  12

Comments

Тут точно правильно?

---

Автор вопроса указал "Или хотя бы в Паскале сделать программу", т.е. допустил отсутствие блок-схемы.

---

А блок схему?)

---

Я не знаю, правильно ли оно в части того как понимали авторы задания, но в части Ваших комментариев к заданию "тут точно правильно". Вы ведь можете в этом убедиться по тестовому решению.

Answer 2

Var a:array[0..999] of integer;
n,i,p,max,c,d,t,j,k:integer;
begin
write ('Введите кол-во элементов в массиве: ');
readln (n);
p:=1;
d:=0;
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
max:=a[1];
for i:=1 to n do
begin
c:=abs(a[i]);
if c>max then max:=c;
if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i];
end;
WRITELN;
writeln ('Максимальный по модулю элемент = ',max);
writeln ('Произведение отрицательных нечётных элементов = ',p);
for i:=1 to n do
begin
if i mod 2 = 0 then write (a[i],' ');
end;
end.

---

Comments

К началу прибавть PROGRAM PRIM lol;

---

Хорошо,жду

---

Чуть доделаю сейчас с последним заданием)