Exercício 06 Matriz - Pascal

6) Fazer um programa para ler ao final da manhã o fechamento do caixa de uma loja, ou seja, o seu rendimento ao final da manhã. O mesmo deverá ser feito ao final da tarde. Este levantamento deve ser feito todos os dias da semana (de segunda-feira a sexta-feira). Ao final da semana, após feitas todas as leituras, descobrir e escrever o dia e o turno que teve maior rendimento.

Program matriz6;
var
matriz:array[1..2,1..5] of integer;
maior,i,j:integer;
turno:string[5];
Begin
    for i:= 1 to 5 do
        Begin
            for j := 1 to 5 do
                Begin
                    matriz[i,j]:=random(23);
                End;
        End;            
    maior:=matriz[1,1];    
    for i:= 1 to 2 do
        Begin
            for j := 1 to 5 do
                Begin
                    if matriz[i,j] > maior then
                        Begin
                            maior:=matriz[i,j];
                            if i=1 then
                                turno:='Manha'
                            else if i=2 then
                                turno:='Tarde';    
                        End;        
                            
                                                
                End;
        End;            
    Writeln('Maior Rendiemnto: ',maior);    
    Writeln('Turno: ',turno);
End.

Categories: Pascal , Programação