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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2012, 14:47   #1
Антонолол
 
Регистрация: 07.11.2012
Сообщений: 7
По умолчанию Объясните задачу по одномерному массиву

Объяснте пожалуйста поэтапно, что делается в задаче)
Дан массив A(N). Если в массиве несколько минимальных элементов, то поменять местами следующие элементы:
1-N
2-N-1
и т.д.

Код:
program zaz;
const n=5;
var
z,s,x:real;
a:array[1..n] of real;
i,y:integer;
begin
  readln(a[1]);
  x:=a[1];
  for i:=2 to n do begin
    readln (a[i]);
    if x>a[i] then x:=a[i];
  end;
  z:=0;
  for i:=1 to n do
    if x=a[i] then
      z:=z+1;
  y:=n;
  if z>1 then
    for i:=1 to (n div 2) do begin
        s:=a[i];
        a[i]:=a[y];
        a[y]:=s;
        y:=y-1;
      end;
for i:=1 to n do writeln(a[i]);
end.

Последний раз редактировалось Антонолол; 19.12.2012 в 08:16.
Антонолол вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по одномерному массиву С++. DIQUON Помощь студентам 1 07.11.2012 23:34
задача по одномерному массиву Paulsan Общие вопросы C/C++ 4 06.01.2012 00:24
Вопрос по одномерному массиву leha_demi Помощь студентам 1 17.12.2010 21:00
Вопрос по одномерному массиву Borland C Northex Помощь студентам 3 09.11.2010 21:45
одномерному массиву и табличкам viper52rus Помощь студентам 4 12.06.2010 15:25