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

LiL_JoN · 27.06.2011, 10:57

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

Замечание:

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

Цитата:

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

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

Модератор

Vladimir_S · 27.06.2011, 11:26

Цитата:

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

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

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

LiL_JoN · 27.06.2011, 11:35

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

Vladimir_S · 27.06.2011, 12:01

Цитата:

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

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

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

Код:

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 · 27.06.2011, 12:32

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

LiL_JoN · 27.06.2011, 12:33

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

Vladimir_S · 27.06.2011, 12:54

Цитата:

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

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

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

LiL_JoN · 27.06.2011, 14:35

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

27.06.2011, 10:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего информация которая содержится по данным ссылкам будет вам полезна Задача про стоки, Паскаль Паскаль. Задача о сторожах Задача, Паскаль Задача об элементах матрицы

27.06.2011, 11:35	#3 (permalink)
LiL_JoN Новичок Регистрация: 27.06.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	с первым положительным

27.06.2011, 12:32	#5 (permalink)
LiL_JoN Новичок Регистрация: 27.06.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	огромное вам спасибо

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

27.06.2011, 12:33	#6 (permalink)
LiL_JoN Новичок Регистрация: 27.06.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А с матрицами сможете помочь?

27.06.2011, 14:35	#8 (permalink)
LiL_JoN Новичок Регистрация: 27.06.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Да я бы с радостью. . . просто чайник в этом деле, а нужно на послезавтра. . . в любом случае огромное спасибо за помощь