Răspunsuri

Cel mai inteligent răspuns!
2014-11-13T22:54:17+02:00
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.
2 5 2