• нужно составить блок-схему по программе
    Program Lab1;
    const
    n = 20;
    var
    a: array[1..n] of byte;
    i, imin: byte;
    begin
    writeln('Исходный массив:');
    for i := 1 to n do
    begin
    a[i] := random(100);
    write(a[i], ' ');
    end;
    writeln;
    imin := 1;
    for i := 2 to n do
    begin
    if a[i] < a[imin] then imin := i;
    end;
    writeln('Минимум = ',a[imin],', позиция: ',imin);
    end.

Ответы 0

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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