Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11697
Последний выпуск: 19.06.2015

Одномерные и двухмерные массивы

85K
12 февраля 2014 года
orik
6 / / 08.02.2014
Дан массив А(10). Найти максимальный элемент массива, упорядочить элементы, следующие за ним по убыванию.
  • А двумерные массивы тут при чем? от sadovoya, 12 февраля 2014 года
209
12 февраля 2014 года
wanja
1.2K / / 03.02.2003
Код:
imax:=1;
maxx:=a[1];
for i:=2 to 10 do
   if a[i]>maxx then
      begin
      imax:=i;
      maxx:=a[i];
      end;
for i:=imax+1 to 9 do
  for j:=i+1 to 10 do
     if a[i]<a[j] then
         begin
         h:=a[i];
         a[i]:=a[j];
         a[j]:=h;  
         end;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог