Помогите пожалуйстьа решить несколько задач в Паскале (МАССИВЫ)

[VisTBacK]

Блин...ниче не работает...есть еще предложения?)

[puporev]

На тебе 1 и 2 задачи. Нормально работают. Что еще не получается. Сам то хоть что-нибудь напиши, а то только громко возмущаешься.
№1.

uses crt;
var a:array[1..50]of integer;
    n,i,s,max,j,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
for i:=1 to n do
   begin
     a[i]:=random(20);
     write(a[i],' ');
   end;
writeln;
i:=1;max:=0;
while i<=n-2 do
   begin
     s:=0;
     for j:=i to i+2 do
     s:=s+a[j];
     if s>max then
           begin
             max:=s;
             k:=i;
           end;
     i:=i+1;
   end;
writeln('max=',max);
for i:=k to k+2 do
a[i]:=0;
for i:=1 to n do
write(a[i],' ');
readln
end.

№2.

uses crt;
var a,b,c:array[1..50]of integer;
    n,i,j,t,k,p:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv A:');
for i:=1 to n do
   begin
     a[i]:=random(20)+1;
     write(a[i],' ');
   end;
writeln;
writeln('Massiv B:');
for i:=1 to n do
   begin
     b[i]:=random(20)+1;
     write(b[i],' ');
   end;
writeln;
j:=0;
for i:=1 to n do
if a[i] mod 2=0 then
   begin
     j:=j+1;
     c[j]:=a[i];
   end;
t:=j;
for i:=1 to n do
if b[i] mod 2=0 then
   begin
     t:=t+1;
     c[t]:=b[i];
   end;
j:=t;
for i:=1 to n do
if odd(a[i]) then
   begin
     j:=j+1;
     c[j]:=a[i];
   end;
t:=j;
for i:=1 to n do
if odd(b[i]) then
   begin
     t:=t+1;
     c[t]:=b[i];
   end;
writeln('Massiv C:');
for i:=1 to t do
write(c[i],' ');
readln
end.

[VisTBacK]

Огромное спасибо! А я вот все пытаюсь решить задачу номер 3! и что то не алё))

[Rusl92]

Понятно это a,chet,nechet:array [1..100] of integer !

[Нео989]

Помогите пожалуйста решить задачу...
В массиве A=(a1, а2, ..., аn) удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива.
заранее спасибо

[Нео989]

Сообщение от Нео989

Помогите пожалуйста решить задачу...
В массиве A=(a1, а2, ..., аn) удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива.
заранее спасибо

помогите плиз...

[DeKot]

неужели ни кто не может помоч???

Это же не помощь, это медвежья услуга.
To Нео989 - Вы хотя бы напишите сами код, пусть плохой, пусть с ошибками.Но будет видно что человек старается.Тогда и помощь будет реальная и польза. А так - решите мне задачу и все тут.Хорошо , что Вы на врача не учитесь...

[Нео989]

Сообщение от DeKot

Это же не помощь, это медвежья услуга.
To Нео989 - Вы хотя бы напишите сами код, пусть плохой, пусть с ошибками.Но будет видно что человек старается.Тогда и помощь будет реальная и польза. А так - решите мне задачу и все тут.Хорошо , что Вы на врача не учитесь...

program test1;

const
n = 20;

var
a: array [1..n] of integer;
i, min, n1: integer;

begin
randomize;
{Generate}
for i := 1 to n do
a[i] := random(200) - 100;
{Print}
for i := 1 to n do
write(a[i], ' ');
writeln;
{Get min index}
for i := 1 to n do
if i = 1 then
min := i
else
if a[i] < a[min] then
min := i;
{Delete elements}
i := 1;
n1 := n;
while i <= n1 do begin
if (a[i] > 0) and ((i mod 2) = 0) and (i > min) then begin
a[i] := a[i + 1];
//dec(i);
dec(n1);
end;
inc(i);
end;
{Print}
for i := 1 to n1 do
write(a[i], ' ');
readln;
end.


но это не совсем то получилось у меня...здесь есть пара багов (например, почему-то в результирующем массиве эелементы что стоят после удаляемых дублируются, выборочно)..и нужно сделать так чтобы я сам вводил а уже после он удалял то что не нужно по заданию...Помогите пожалуста...

[puporev]

На, изучай. Что не поймешь, спроси.

program test1;
uses crt;
const
n = 20;
var a: array [1..n] of integer;
n1,i,min,imin,j:integer;
begin
clrscr;
randomize;
{Generate}{Print}
for i := 1 to n do
   begin
    a[i] := random(20)-3;
    write(a[i],' ');
   end;	
writeln;
{Get min index}
min:=a[1];imin:=1;
for i := 1 to n do
if a[i]<min then
  begin
    min:=a[i];
    imin:=i;
  end;
writeln('min=',min,'  imin=',imin);
{Delete elements}
i:=imin+1;n1:=n;
while i <= n1 do
  begin
    if(a[i]>0) and (i mod 2=0) then
      begin
       for j:=i to n-1 do
       a[j] := a[j+1];
       dec(n1);
      end;
    inc(i);
end;
{Print}
for i := 1 to n1 do
write(a[i],' ');
readln;
end.

[Нео989]

Сообщение от puporev

На, изучай. Что не поймешь, спроси.

Спасибо за помощ