• Помогите пожалуйста
    1.Найти номер минимального элемента массива.
    2. Найти номера минимального и максимального элементов
    массива.
    (Паскаль)

Ответы 2

  • Спасибо
  • //Pascalvar  A: array [1..5] of integer;  min, max, minInd, MaxInd: integer;  i: byte;begin  writeln('Заполнение массива.');  for i := 1 to 5 do  begin    write('А[', i, '] = '); readln(A[i]);  end;  writeln;  Max := A[1]; Min := A[1];  for i := 1 to 5 do  begin  if Max < A[i] then begin Max := A[i]; MaxInd := i; end;  if Min > A[i] then begin Min := A[i]; MinInd := i; end;  end;  writeln('Номер минимального элемента = ', MinInd);  writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd);end.
    answer img
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years