Задача №1856.

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике. Для получения положительной оценки за тест требовалось набрать не менее 20 баллов. Опишите на русском языке или на одном из языков программирования алгоритм, который позволяет найти и вывести минимальный балл среди учащихся, получивших за тест положительную оценку. Известно, что в классе хотя бы один учащийся получил за тест положительную оценку. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

Паскаль
Const
  N=30; 
var
  a: array [1..N] of integer; 
  i, j, min: integer; 
begin
  for i:=1 to N do 
    read(a[i]);
  ...
end.
Бейсик
N=30
DIM A(N) AS INTEGER
DIM I, J, MIN AS INTEGER
FOR I = 1 TO N
INPUT A(I)
NEXT I
...
END
#include  
#define N 30 
void main(void) 
{
  int a[N]; 
  int i, j, min; 
  for (i=0; i‹N; i++)
    scanf("%d", &a[i]); 
  ...
}
Естественный язык
Объявляем массив A из 30 элементов. 
Объявляем целочисленные переменные I, J, MIN.
В цикле от 1 до 30 
  вводим элементы массива A с 1-го по 30-й.
...
В качестве ответа Вам необходимо привести программу, заполнив многоточие. Вы можете записать решение также на другом языке программирования В этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
Примеры
Входные данные
34 2 43 34 12 42 31 23 24 45 34 2 43 34 12 42 31 23 24 45 34 2 43 34 12 42 31 23 24 45
Выходные данные
23
Сдать: для сдачи задач необходимо войти в систему