Exercícios pascal - ipd

ESCREVA UM PROGRAMA QUE LEIA UMA MATRIZ 4X4 E CALCULE A DIAGONAL PRINCIPAL E A DIAGONAL SECUNDÁRIA, APÓS ISSO, IMPRIMIR A MATRIZ.

PROGRAM DIAGONAIS;
VAR
M: ARRAY [1..4,1..4] OF INTEGER; I, J, N, D1, D2: INTEGER;
BEGIN
FOR I:= 1 TO 4 DO BEGIN FOR J:=1 TO 4 DO BEGIN WRITE ('DIGITE O ELEMENTO [‘,I,’,’,J,’]: '); READ(M[I,J]); END;
END;
N:=4; D1:=1; D2:=1; FOR I:=1 TO 4 DO BEGIN FOR J:=1 TO 4 DO BEGIN IF I=J THEN BEGIN D1:=D1*M[I,J]; END; END; END; FOR I:=1 TO 4 DO BEGIN J:=N+1 –I; D2:=D2*M[I,J]; END; WRITE (‘DIAGONAL PRINCIPAL: ‘ D1); WRITE (‘DIAGONAL SECUNDÁRIA: ‘ D2); FOR I:=1 TO 4 DO BEGIN WRITE (‘|’); FOR J:=1 TO 4 DO BEGIN WRITE (M[I,J]); END; WRITE (‘|’); END;
END.

ESCREVA UM PROGRAMA PARA CADASTRAR CLIENTES DE UMA LOJA ( NOME, ENDEREÇO E TELEFONE). DEVE SER USADA UMA ESTRUTURA DE REGISTRO PARA A CONSTRUÇÃO DESDE CADASTRO. PORÉM O PROGRAMA DEVERÁ SUPORTAR ATÉ 50 CLIENTES.
AO FINAL DO CADASTRO DE CADA CLIENTE, DEVERÁ SER PERGUNTADO: “NOVO CLIENTE (S/N)?”.

PROGRAM E02;
TYPE
CADASTRO = RECORD NOME, ENDER: STRING; TEL: INTEGER;
END;
VAR CLIENTE: ARRAY [1..50] OF CADASTRO; I,X: INTEGER; RESP: CHAR;
BEGIN
I:=0; REPEAT I:=I+1; WRITE ('NOME:'); READLN (CLIENTE[I].NOME); WRITE ('ENDEREÇO:'); READLN (CLIENTE[I].ENDER); WRITE ('TELEFONE:'); READLN (CLIENTE[I].TEL); WRITE ('NOVO CLIENTE (S/N)?'); READLN (RESP); UNTIL (RESP='N') OR (RESP='n') OR (I=50); WRITELN ('EXISTE(M)' ,I,' CLIENTE(S) CADASTRADO(S)'); WRITELN; FOR X:= 1 TO I DO BEGIN WRITELN ('NOME:',CLIENTE[I].NOME); WRITELN ('ENDEREÇO:',CLIENTE[I].ENDER); WRITELN ('TELEFONE:',CLIENTE[I].TEL); END;
END.

ELABORE UM PROGRAMA PASCAL QUE LEIA DOIS VETORES, UM DE 5 NOMES E OUTRO DE 5 IDADES (RESPECTIVAS). EM SEGUIDA, CLASSIFIQUE E IMPRIMA EM ORDEM ALFABÉTICA.

PROGRAM EXER01;
VAR
VIDADE: ARRAY [1..5] OF INTEGER;