Задача в Pascal

[Даshyта]

Задача в Pascal

В школе задали задание:
В данном массиве чисел с1, с2, ..., с25 поменять местами максимальный элемент с последним отрицательным элементом.

Нужно решить это на языке схем, описать на естественном языке и написать программу в Pascal.
Люди добрые, ПОМОГИТЕ!!! Я ничего не понимаю в ЭТОМ. А если не выполню получу три двойки((( Не хотелось бы...:tehnari_ru_121:

 

[Vladimir_S]

В школе задали задание:
В данном массиве чисел с1, с2, ..., с25 поменять местами максимальный элемент с последним отрицательным элементом.

Нужно решить это на языке схем, описать на естественном языке и написать программу в Pascal.
Люди добрые, ПОМОГИТЕ!!! Я ничего не понимаю в ЭТОМ. А если не выполню получу три двойки((( Не хотелось бы...:tehnari_ru_121:

Насчет первых двух пунктов - ничем помочь не могу, а по третьему - пожалуйста, как вариант (если устроит):

Var
 C:Array[1..25] of Integer;
 i,i_max,i_neg:Byte;
 Maxim,Dummy:Integer;

BEGIN
 Randomize;
 Maxim:=-100;
 Writeln('Initial array:');
 For i:=1 to 25 do
  Begin
   C[i]:=50-Random(100);
   Write(C[i]:4);
   If C[i]>Maxim then
    begin
     Maxim:=C[i];
     i_max:=i;
    end;
   If C[i]<0 then
    i_neg:=i;
  End;
 Writeln;
 Writeln;
 Writeln('Changed array:');
 Dummy:=C[i_max];
 C[i_max]:=C[i_neg];
 C[i_neg]:=Dummy;
 For i:=1 to 25 do
  Write(C[i]:4);
 Readln;
END.

 

[Даshyта]

И за это ОГРОМНОЕ спасибо!!!))))