Programação

1)Questão:
Program Questao_1 ; var linha,coluna,maior:integer;
D:array[1..3,1..5]of integer; Begin For linha:=1 to 3 do begin For coluna:= 1 to 5 do begin write('Informe o valor para [',linha,',',coluna,']:'); read(D[linha,coluna]); end; end; For linha:=1 to 3 do begin For coluna:= 1 to 5 do begin if(D[linha,coluna]>maior)then begin maior:=D[linha,coluna]; end; end; end; writeln; writeln('O maior valor é:',maior);

End.

2)Questão:
Program Questao_2 ; var linha,coluna:integer;
D:array[1..3,1..3]of integer; Begin For linha:=1 to 3 do begin For coluna:= 1 to 3 do begin D[linha,coluna]:=linha+coluna; end; end; For linha:=1 to 3 do begin For coluna:= 1 to 3 do begin Write(' ',D[linha,coluna]); end; writeln; end;

end. 3)Questão: Program Questao_3 ; var linha,coluna,num:integer;
D:array[1..3,1..5]of integer; Begin For linha:=1 to 3 do begin For coluna:= 1 to 5 do begin write('Informe o valor para [',linha,',',coluna,']:'); read(D[linha,coluna]); end; end; write('Informe um valor:'); read(num); For linha:=1 to 3 do begin For coluna:= 1 to 5 do begin D[linha,coluna]:=D[linha,coluna]*num; write(' ',D[linha,coluna]); end; writeln; end; end.

4)Questão:
Program Questao_4 ; var linha,coluna:integer;
A,B,C:array[1..2,1..3]of integer; Begin For linha:=1 to 2 do begin For coluna:=1 to 3 do begin write('Informe o valor para [',linha,',',coluna,']:'); read(A[linha,coluna]); end; end; writeln; For linha:=1 to 2 do begin For coluna:=1 to 3 do begin write('Informe o valor para [',linha,',',coluna,']:'); read(B[linha,coluna]); end; end; For linha:=1 to 2 do begin For coluna:=1 to 3 do begin C[linha,coluna]:=A[linha,coluna]+B[linha,coluna];