armazenar estoque em uma matriz

Descrição

Esconder código-fonte

PROGRAM EXERCICIO6;

USES CRT;

VAR
  MATRIZ: ARRAY [1..5,1..4] OF INTEGER;
  LINHA,COLUNA, MAIOR, MENOR: INTEGER;
  ARMAZEM: ARRAY [1..4] OF INTEGER;

BEGIN

  CLRSCR;

  FOR LINHA:= 1 TO 4 DO
    ARMAZEM[LINHA]:=0;

  FOR COLUNA:=1 TO 4 DO
  BEGIN

    FOR LINHA:=1 TO 4 DO
    BEGIN
      WRITE('INFORME A QUANTIDADE DE PRODUTOS N§',COLUNA,', NO ARMAZEM ',LINHA,': ');
      READLN(MATRIZ[LINHA,COLUNA]);
      ARMAZEM[LINHA]:=ARMAZEM[LINHA]+MATRIZ[LINHA,COLUNA];
    END;

  WRITE('INFORME O VALOR DO PRODUTO ',COLUNA,': ');

  READLN(MATRIZ[5,COLUNA]);

  WRITELN;

  END;

  CLRSCR;

  MAIOR:=MATRIZ[1,2];
  MENOR:=MATRIZ[1,4];

  FOR LINHA:=1 TO 4 DO
  BEGIN
    WRITELN('O ARMAZEM ',LINHA,' POSSUI ',ARMAZEM[LINHA],' ITENS ARMAZENADOS');

    IF MAIOR < MATRIZ[LINHA,2] THEN
      MAIOR:= MATRIZ[LINHA,2];

    IF MENOR > MATRIZ[LINHA,4] THEN
      MENOR:= MATRIZ[LINHA,4];
  END;

  WRITELN;

  WRITE('O ARMAZEM ');
  FOR LINHA:=1 TO 4 DO
    IF MAIOR = MATRIZ[LINHA,2] THEN
      WRITE(LINHA,', ');
  WRITELN('POSSUI O MAIOR ESTOQUE DO PRODUTO 2, COM ',MAIOR,' PRODUTOS');

  WRITE('O ARMAZEM ');

  FOR LINHA:=1 TO 4 DO
    IF MENOR = MATRIZ[LINHA,4] THEN
      WRITE(LINHA,', ');
  WRITELN('POSSUI O MENOR ESTOQUE DO PRODUTO 4, COM ',MENOR,' PRODUTOS');

  READKEY;
END.