const n = 450;
var
i,min,s: integer;
arr:array[1..n] of integer;
begin
min:=999;
s:=0;
for i:=1 to n do begin
arr[i]:=random(900)+100;
if arr[i]<=min then begin
min:=arr[i];
end;
end;
for i:=1 to n <span>do </span>
<span> if </span>arr[i]=min then s:=s+1;
writeln(s);
end.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
2)введите номер месяца: 12
введите день: 3
до Нового года осталось: 28 дней
Пойдем вечером в цирк, Вера