var
N : integer; // количество элементов массива
M : integer; // наименьшее значение массива
begin
randomize;
write('введите число элементов массива ');
readln(N);
var D : array of integer := new integer[N];
M := 76; // присваиваем M любое число больше максимально возможного
for var i := 0 to N-1 do begin
D[i] := random(0, 75);
if M > D[i] then M := D[i];
end;
writeln('Сгенерирован массив:');
writeln(D);
writeln('наименьший член массива равен = ', M);
end.
тестировалось в PascalABC.Net, в других версиях паскаля синтаксис может иметь незначительные отличия.
def main():
def check(marks):
for i in marks:
if i not in range(1,6):
normal = False
break
else:
normal = True
return normal
marks = list(map(int, input().split()))
normal = check(marks)
if normal:
if marks.count(3) >= 1:
print('NO')
else:
print('YES')
else:
print('input error. Mark can not be higher than 5 or lower than 1')
if __name__ == "__main__":
main()
end = input()
Не советую копировать, сайт нарушает табуляции в коде и по итогу интерпретатор выдаёт ошибку. Лучше попытаться понять и воссоздать самому
