• program qq;
    const N=5;
    var a:array[1..N] of integer;
    i,iMax:integer;
    begin
    writeln('Исходный массив:');
    for i:=1 to N do begin
    a[i]:=random(100)+50;
    write(a[i]:4);
    end;
    iMax:=1;{считаем,что певый-минимальный}
    for i:=2 to N do {проверяем все остальные}
    if a[1]>a[iMax] then {новый минимальный}
    iMax:=1; {запомнить i}
    writeln; {перейти на новую строку}
    writeln('Минимальный элемент a[',iMax,']=', a[iMax]);
    end.
    Исправить чтобы получилось минимальный массив

Ответы 1

  • надеюсь это то что надоconst    N = 5;var    a: array[1..N] of integer;    i, iMin: integer;begin    writeln('Исходный массив:');    for i := 1 to N do     begin        a[i] := random(100) - 50;        write(a[i]:4);    end;    iMin := 1;{инциируем первым элементом}    for i := 2 to N do {проверяем все остальные}        if a[i] < a[iMin] then {новый минимальный}            iMin := i; {запомнить i}    writeln; {перейти на новую строку}    writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);end.
    • Автор:

      kayaz8ex
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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