Computação TOP10

Crie um algorítimo que recebe uma matriz 4x4 de números inteiros, depois adicione a linha 2 da matriz em um vetor com 4 elementos (mostre o vetor). Crie um registro capaz de receber um cadastro de 5 clientes contendo nome e telefone de cada cliente, após preencher ordene o registro por nome e mostre o resultado.

Resposta:

Program exe;
//Autor: Cícero Amauri
type
   cad= record
               nome: string;
               tel: integer;
             end;
var
  a: array [1..4,1..4]of integer;
  res: array[1..5] of cad;
  vetor: array [1..4] of integer;
  i, auxt, j: integer;
  auxn: string;
  mudou: char;
 Begin
     for i := 1 to 4 do
     begin
       for j := 1 to 4 do
       begin
         write('digite a ',i,' linha e a ',j,' coluna da matriz: ');
         readln (a[i,j]);
         if (a[i,j] <= 0) then
         begin
          repeat
            writeln ('número invalido' );
            write('digite a ',i,' linha e a ',j,' da matriz: ');
            readln (a[i,j]);
          until (a[i,j] > 0);
         end;
       end;
     end;
     for i := 1 to 4 do
begin
 for j := 1 to 4 do
 begin
   if (i = 2) then
   begin
     vetor[i] := a[i,j];
     writeln ('o vetor é: ', vetor[i])
   end; 
 end;
end; 
    for i := 1 to 5 do
    begin
      write(' digite o ',i,' nome: ');
readln(res[i].nome);
write('digite o telefone: ');
readln (res[i].tel);
    end;
    for i := 1 to 5 do
    begin
     writeln (res[i].nome);
writeln (res[i].tel);  
    end;
    repeat
      mudou := 'n';
      for i := 1 to 4 do
      begin
        if (res[i].nome > res[i+1].nome) then
        begin
          auxn:= res[i].nome;
          auxt:= res[i].tel;
          res[i].nome:= res[i+1].nome;
          res[i].tel := res[i+1].tel;
          res[i+1].nome:= auxn;
          res[i+1].tel:= auxt;
          mudou := 's';
        end;
      end;
    until (mudou = 'n');
    writeln (' vetor ordenado por nome ');
    for i := 1 to 5 do
    begin
     writeln (res[i].nome);
writeln (res[i].tel);  
    end;
 End.