Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Привет самым лучшим и умным парняи девушкам,которые скперово разбираются о всех этих примочках)у меня горит зачёт по програмированию..АААаааА..я просто уже умоляю мне,глупенькой помоч)

Вопрос задала: Kashicina (статус: Посетитель) Вопрос отправлен: 16 марта 2012, 11:59 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Цитата:

var
  X: array[0..11] of Char;
  Index, MaxIndex: Integer;
  Max: Char;
 
begin
  // заполнение массива (извини, что по-русски пишу, в мове я не копенгаген)
  Randomize();
  for Index:= 0 to 11 do
    begin
      X[Index]:= Char($20 + Random(236));
      Write(' ', X[Index]);
    end;
 
  WriteLn;
 
  // поиск минимального элемента
  Max:= X[0];
  MaxIndex:= 0;
  for Index:= 1 to 11 do
    if X[Index] < Max
      then begin
             Max:= X[Index];
             MaxIndex:= Index;
           end;
 
  WriteLn(' Max: ', Max, '; MaxIndex: ', MaxIndex);
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 16 марта 2012, 13:44 Оценка за ответ: 5

Мини-форум вопроса

Kashicina (статус: Посетитель), 16 марта 2012, 22:06 [#1]: Ой,спасибо огромное..вы меня спасли...))))

17 марта 2012, 15:39: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Всё за вас ходить закрывать?

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.