Pascal. Задача 8-24

Целочисленный массив из 10 элементов вводит пользователь. Элементы массива могут принимать значения от 0 до 100 - сумма баллов за год за выполнение домашних заданий по информатике учащимися. Для получения положительной оценки необходимо было набрать 40 баллов. Найти и вывести минимальный балл среди учащихся, получивших положительную оценку.

Решение

const
  N = 10;
var
  i, min : integer;
  a : array[1..N] of integer;
begin
  for i := 1 to N do begin
    Write('Введите элемент массива ', i, ': ');
    Readln(a[i]);
  end;
  min := 1000;
  for i := 1 to N do begin
    if (a[i] < min) and (a[i] >= 40) then
      min := a[i];
  end;
  Writeln('Минимальный балл: ', min);
end.

◄▲►