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

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

Хорошо,жду

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

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

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

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

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

var a:array[0..999] of integer;n,i,p,max,c,d,t,j,k:integer;beginwrite ('Введите кол-во элементов в массиве: ');readln (n);p:=1;d:=0;write ('Массив: ');for i:=1 to n dobegina[i]:=random(101)-50;write (a[i],' ');end;max:=a[1];for i:=1 to n dobeginc:=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 dobeginif i mod 2 = 0 then write (a[i],' ');end;end.

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<abs(x[i]) then    begin maxmod:=abs(x[i]); xi:=x[i] end;    if (i mod 2 <> 0) and (x[i]<0) then p:=p*x[i]  end;  Writeln;  Writeln('Значение максимального по модулю элемента: ',xi);  Writeln('Произведение отрицательных нечетных элементов: ',p);  { удаляем элементы с нечетным номером }  k:=1;  while (2*k-1)<=n do  begin y[k]:=x[2*k-1]; Inc(k) end;  Writeln('Результирующий массив');  for i:=1 to k-1 do Write(y[i]:4);  Writelnend.Тестовое решение:Элементы массива  -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