Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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


Ответ
 
Опции темы
Старый 22.01.2009, 00:14   #1
Lerika
 
Регистрация: 21.01.2009
Сообщений: 4
По умолчанию В массиве Р(10) введенном с клавиатуры поменять местами наибольший и наименьший элементы. Делфи.

Помогите решить пожалуйста в Delphi две задачи на одномерные массивы:

1.В массиве Р(10) введенном с клавиатуры поменять местами наибольший и наименьший элементы.

2. Найти номера пары элементов массива В(20) вводимого с клавиатуры, равноотстоящих от начала и конца массива и имеющих одинаковые значения
Lerika вне форума Ответить с цитированием
Старый 22.01.2009, 00:27   #2
werser
Форумчанин
 
Регистрация: 11.06.2007
Сообщений: 233
По умолчанию

var b:array [1..10] of integer;
i,d,max,maxi,mini,min,c:integer;
begin
randomize;
max:=0; min:=32000;
for i:=1 to 10 do
begin
if b[i]>max then begin max:=b[i];maxi:=i; end;
end;
for i:=1 to 10 do
begin
if b[i]<min then begin min:=b[i];mini:=i end;
end;
c:=b[maxi];
b[maxi]:=b[mini];
b[mini]:=c;
end;
werser вне форума Ответить с цитированием
Старый 22.01.2009, 00:29   #3
werser
Форумчанин
 
Регистрация: 11.06.2007
Сообщений: 233
По умолчанию

Это текст кнопки обработки массива. Дкмаю ввести сможеш это просто и вывести потом. Просто Не знаю как ты его вводить будеш спомощью стринггрида или как то по другому
werser вне форума Ответить с цитированием
Старый 22.01.2009, 01:56   #4
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

Интуиция подсказывает мне, что проги нужны консольные...
1.
Код:
program maxmin;
{$APPTYPE CONSOLE}
var P: array[1..10] of integer;
     max, min, imax, imin, i: integer;
begin
writeln('Enter array: ');
read(P[1]);
max := P[1]; min := P[1]; imin := 1; imax := 1;
for i := 2 to 10 do
  begin
  read(P[i]);
  if P[i] > max then begin max := P[i]; imax := i end
  else if P[i] < min then begin min := P[i]; imin := i end
  end;
P[imax] := min; P[imin] := max;
for i := 1 to 10 do write(P[i],' ');
end.
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума Ответить с цитированием
Старый 22.01.2009, 02:02   #5
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

2.
Код:
program pairs;
{$APPTYPE CONSOLE}
var B: array[1..20] of integer;
    i: integer;
begin
write('Enter array: ');
for i := 1 to 20 do read(B[i]);
for i := 1 to 10 do
  if B[i] = B[20-i+1] then writeln(i,' ',20-i+1);
end.
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума Ответить с цитированием
Старый 22.01.2009, 06:21   #6
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию Имхо...

Цитата:
Сообщение от werser Посмотреть сообщение
var b:array [1..10] of integer;
i,d,max,maxi,mini,min,c:integer;
begin
randomize;
max:=0; min:=32000;
for i:=1 to 10 do
begin
if b[i]>max then begin max:=b[i];maxi:=i; end;
end;
for i:=1 to 10 do
begin
if b[i]<min then begin min:=b[i];mini:=i end;
end;
c:=b[maxi];
b[maxi]:=b[mini];
b[mini]:=c;
end;
////////////////////////////
вступлю в команду разработчиков ПО на Delphi

Последний раз редактировалось maladoy; 22.01.2009 в 06:45.
maladoy вне форума Ответить с цитированием
Старый 23.01.2009, 12:52   #7
Lerika
 
Регистрация: 21.01.2009
Сообщений: 4
По умолчанию

спасибо большое))
Lerika вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как поменять местами в массиве max и min элемент. Stager Общие вопросы C/C++ 2 13.01.2009 03:03
Задача по матрицам. Поменять местами наименьший и второй по величине элементы Иван 883 Паскаль, Turbo Pascal, PascalABC.NET 5 03.01.2009 17:04
Ввести двумерный массив и поменять в нём местами элементы Ku6ep Помощь студентам 3 23.12.2008 19:25
в двумерном массиве целых чисел поменять местами стороки и столбы с одинаковыми номерами. Lilu Паскаль, Turbo Pascal, PascalABC.NET 2 03.04.2008 16:27
в двухмерном массиве поменять местами столбцы с максимальным и минимальным элементами Лёха Помощь студентам 5 18.12.2007 19:12