Question

1. Дан целочисленный массив из 15 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за итоговый тест по информатике. Для получения положительной оценки за тест требовалось набрать не менее 20 баллов. Создайте на языке Pascal АВС программу которая находит и выводит минимальный балл среди учащихся, получивших за тест положительную оценку.
Использовать следующие процедуры и функции: процедуры формирования массива, процедуры вывода массива. Функцию поиска минимального элемента. В каждую подпрограмму в качестве параметра передавать исходный массив

Answer 1

const n=15;
type ar=array[1..n] of integer;
procedure p1(var a:ar);
var i:integer;
begin
for i:=1 to n do a[i]:=random(101);
end;
procedure p2(var a:ar);
var i:integer;
begin
for i:=1 to n do write(a[i],' ');
writeln;
end;
function min(var a:ar):integer;
var m,i:integer;
begin
m:=100;
for i:=1 to n do 
 if (a[i]<m)and(a[i]>=20) then m:=a[i];
min:=m;
end;
var a:ar;
begin
Randomize;
p1(a);
p2(a);
writeln('min = ',min(a));
end.

Пример:
15 59 25 47 3 53 57 91 13 22 99 12 53 87 68 
min = 22