Algoritmo para ler números inteiros, onde o Flag será o valor 0 e sem seguida escrever o menor valor lido e quantas vezes este ocorreu nos números lidos.

//Faça um algoritmo para ler números inteiros, onde o Flag será o valor 0 e sem seguida escrever o

//menor valor lido e quantas vezes este ocorreu nos números lidos.

program NumerosInteirosFlag;

uses crt;

var

flag,soma,menor,i:integer;

begin

soma:=0;

i:=0;

repeat

i:=i+1;

writeln(' -----> Se quiser sair digite 0 <-----');

writeln(' informe um numero (inteiro!):');

readln(flag);

if (flag <> 0) then

begin

// menor:penúltimo número digitado

// flag: último número digitado

if (flag<>0) and (i = 1) then

begin

menor:=flag;

end else begin

if (flag < menor)then

begin

soma:=0; // vezes que o menor numero foi digitado

menor:=flag;

end;

if (menor = flag) then

begin

soma:=soma + 1;

end;

end;

end;

until (flag = 0);

if i>1 then

begin

writeln(' menor = ',menor);

if (soma = 0) then

begin

soma:=1;

end;

writeln(' quantidade de vezes que saiu =', soma );

readkey;

end;

end.