• Помогите пожалуйста. Вот задача: Дан одномерный массив, состоящий из 10 элементов. Определить минимальный элемент этого массива.

Ответы 1

  • var i,min:integer;a:array [1..10] of integer;Begin    for i:= 1 to 10 do Begin        read(a[i]);        if (i=1) or (min>a[i])then            min:=a[i];    end;    writeln(min);End.

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

Войти через Google

или

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

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

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