решить задачи в паскале

[алексей89рус]

Дан массив элементов длины N.найти
1. Наибольший элемент массива.
2. Номер наибольшего элемента массива.
3. Отсортировать массив по убыванию.

[Sciv]

Решалось уже неоднократно, поиск Вам в помощь.

[алексей89рус]

помогите плиз срочно надо

[kventin_zhuk]

Не комплировал.

const N = 10;
var 
  mass: array [1..N] of integer;
  i, max, MaxPos:integer;
begin
  max := mass[1];
  for i := 1 to  N do
  begin
    if max < mass[i] then
    begin 
      max := mass[i];
      MaxPos := i;
    end;
  end;
  writeln('max  = ', max);
  writeln('MaxPos  = ', MaxPos);
end.

Автор-автор, ну вот как так можно.....? сказал бы, да промолчу.

[алексей89рус]

спасибо!!!!!1

[Poma][a]

1) После последнего end'а у Вас стоит ;
2)

max := mass[0];

при моих настройках компилятора - выдает ошибку!!!
Так же можно не хранить значение максимального элемента, если Вы храните его индекс.

[kventin_zhuk]

Сообщение от Poma][a

1) После последнего end'а у Вас стоит ;
2) при моих настройках компилятора - выдает ошибку!!!

Последний раз редактировалось kventin_zhuk; Сегодня в 19:32.

с головы писал - уже заметил) но за уточнение спасибо!)

[Sciv]

А нафига для макса отдельную переменную заводить? Нашли бы просто позицию, да и все.

И Вы это... топикстартеру то скажите, что тут сортировки нет
А то ведь так и сдаст

[kventin_zhuk]

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

А нафига для макса отдельную переменную заводить? Нашли бы просто позицию, да и все.

И Вы это... топикстартеру то скажите, что тут сортировки нет
А то ведь так и сдаст

не пали :D Если он её хотя бы запустит - это уже успех. А иначе будет хороший сюрприз)

[Rififi]

И Вы это... топикстартеру то скажите, что тут сортировки нет
А то ведь так и сдаст

Выкатываешь такую "бомбочку" на форум, цепляешь к студню, и все, студень-смертник готов. :lol: