дан одномерный массив с индексами от 0 до 14, отыскать индекс

Дан одномерный массив с индексами от 0 до 14, отыскать индекс малого и максимального частей массива

(числа вводятся с клавиатуры)

Задать свой вопрос
1 ответ
var
  a: array [0..14] of integer;
  min, max, i: integer;
begin
  for i := 0 to 14 do
    readln(a[i]);
  for i := 0 to 14 do
  begin
    if (a[min] gt; a[i]) then
      min := i;
    if (a[max] lt; a[i]) then
      max := i;
  end;
  writeln('min: a[', min, ']', 13, 'max: a[', max, ']');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт