Program Pzim ;
{Faça um algoritmo que leia 7 produtos, contendo codigo, nome, quantidade, preço. No
final, imprima os produtos que tenha mais do que 5 unidades.}
type r_produto = record
cod:integer;
nome:string;
quant:integer;
preco:real;
end;
var
v_produto:array [1..3] of r_produto;
i, qmais5:integer;
Begin
qmais5:=0;
for i:=1 to 3 do
begin
writeln('ENTRE COM OS DADOS DOS PRODUUTOS');
writeln('_______________________________');
writeln(' ',I,'o. Produto ');
writeln('_______________________________');
writeln('Digite o código do Produto: ');
readln(v_produto[i].cod);
writeln('Digite o nome do Produto:');
readln(v_produto[i].nome);
writeln('Digite a quantidade do Produto: ');
readln(v_produto[i].quant);
writeln('Digite o preço do Produto : ');
readln(v_produto[i].preco);
clrscr;
end;
{aqui cadastra os produtos}
writeln('Produtos com mais de 5 unidades');
for i:=1 to 3 do
begin
if (v_produto[i].quant>5) then
begin
writeln('código: ', v_produto[i].cod, ' - Nome: ',v_produto[i].nome);
end;
end;
{aqui verifica se o produto na posição [i], tem quantidade maior que 5, se tiver, é exibido, se não
tiver, não faz nada}
End.
