Дописать программу в паскале нужно что бы она посчитала количество минимальных значений среди n чисел: program dz1; var n, k: integer; a, min, t: real; begin writeln('задайте кол-во чисел'); read(n); write('задайте первое число'); read(a); min : = a; for k : = 2 to n do begin write('задайте', k, ' число'); read(a); if a = min then min : = a; if a < min then min : = a; end; writeln('наименьшее число : ', min); readln end.

Program DZ1;

var
N, K, S: integer;
A, min: real;

begin
writeln('Задайте кол-во чисел ');
read(N);
write('Задайте первое число ');
read(A);
min := A;
S := 1;
for K := 2 to N do
begin
write('Задайте ', K, ' число ');
read(A);
if A = min then S := S + 1;
if A < min then
begin
min := A;
S := 1;
end;
end;
writeln('Наименьшее число : ', min);
writeln('Количество вхождений : ', S);
end.