Паскаль. Задача об элементах вектора

[LiL_JoN]

Паскаль. Задача об элементах вектора

:tehnari_ru_281:Как написать прогу в паскале чтобы выполнить следующее задание?
Дан вектор X(15). Поменять местами последний положительный элемент с первым.

[MOD2]А в Правила форума - совсем влом заглянуть?

Создавайте темы с осмысленным названием, топики с заглавием ПОМОГИТЕ!!!!!!!!!! будут удаляться.

Тема переименована.

Модератор[/MOD2]

 

[Vladimir_S]

Поменять местами последний положительный элемент с первым.

С первым по номеру или с первым положительным?

 

[LiL_JoN]

с первым положительным

 

[Vladimir_S]

с первым положительным

Тогда, например, так:

VAR
 X:Array[1..15] of Integer;
 i,Imin,Imax,D:Integer;
BEGIN
 Randomize;
 For i:=1 to 15 do
  begin
   X[i]:=50-Random(100);
   Write(X[i]:8);
  end;
 Writeln;
 Writeln;
 Imin:=0;
 Repeat
  Inc(Imin);
 Until X[Imin]>0;
 Imax:=16;
 Repeat
  Dec(Imax);
 Until X[Imax]>0;
 D:=X[Imax];
 X[Imax]:=X[Imin];
 X[Imin]:=D;
 For i:=1 to 15 do
  Write(X[i]:8);
 Readln
END.

 

[LiL_JoN]

огромное вам спасибо

 

[LiL_JoN]

А с матрицами сможете помочь?

 

[Vladimir_S]

А с матрицами сможете помочь?

А самостоятельно не хотите попробовать? Видите ли, я такими школярскими упражнениями, как поиски минимальных/максимальных элементов массивов и манипуляциями со строками/столбцами матрицы не занимаюсь. Из принципа. Всё, что могу предложить - выкладывайте свои наработки, поможем, поправим...

 

[LiL_JoN]

Да я бы с радостью. . . просто чайник в этом деле, а нужно на послезавтра. . . в любом случае огромное спасибо за помощь :tehnari_ru_674: