Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2009, 17:53   #1
Fanny123
 
Регистрация: 30.03.2009
Сообщений: 2
По умолчанию Решите задачку

Ввести последовательность неповторяющихся чисел. Сформулировать вектор из чисел стоящих до максимума и вектор после минимума.
Fanny123 вне форума Ответить с цитированием
Старый 02.04.2009, 17:56   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

// считай что сэкономил
Код:
uses crt;
var x,y,z:array[1..100] of integer;
 min,max,imin,imax,i,n,k:integer;
 begin
 clrscr;
 writeln('vvedite kol-vo:');
 readln(n);
 for i:=1 to n do begin
 writeln('vvedite ',i,' element');
 readln(x[i]);
 end;
 min:=x[1];
 imin:=1;
 max:=x[1];
 imax:=1;
 for i:=1 to n do begin
 if x[i]>max then begin
  max:=x[i];
  imax:=i;
 end;
  if x[i]<min then begin
  min:=x[i];
  imin:=i;
 end;
 end;
 for i:=1 to imax do 
 y[i]:=x[i];
 k:=1;
 for i:=imin to n do begin
  z[k]:=x[i];
  k:=k+1;
 end;
 writeln('----------------');
 writeln('ish vektor:');
 for i:=1 to n do 
 write ( x[i]:6);
 writeln;
 writeln('----------------');
 writeln('1 vektor:');
 for i:=1 to imax do 
 write ( y[i]:6);
 writeln;
 writeln('----------------');
 writeln('2 vektor:');
 for i:=1 to k-1 do
 write ( z[i]:6);
 writeln;
 writeln('----------------');
  readln;
end.
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»

Последний раз редактировалось IT-man; 02.04.2009 в 18:17.
IT-man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решите задачку innaa639 Паскаль, Turbo Pascal, PascalABC.NET 14 30.11.2008 15:20
Решите задачку на Delphi evrey Общие вопросы Delphi 1 01.06.2008 21:47