Question

Se considera tabloul A[1..n] ,
n ≤ 100 de numere intregi. Scrieti un program pascal care determina elementul
maxim si fiecare element a tabloului A este inmultit cu elementul maxim.
program pascal prin proceduri

Answer 1

Program p1;
const max=100;
type Tabel=array[1..max] of integer;
var n,i,b:integer; A:Tabel;
procedure tab(n,max,el:integer);
var i:integer; 
 begin    
max:=0;   
for i:=1 to n do      
if A[i]>max then max:=A[i];   
 for i:=1 to n do      
begin     
el:=A[i]*max;     
 writeln(el);     
 end; 
end;
Begin 
write('Dati n:');readln(n);
writeln('Introduceti elementele in tabel:');
for i:=1 to n do readln(A[i]);
writeln('Ati introdus:');  for i:=1 to n do write(A[i],',');  writeln;
tab(n,max,b);
readln;
End.