rogram tablou;
var a:array[1..100] of integer;
n,i,max:integer;
begin
writeln('Dati n'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
writeln('Elementul este ',max);
for i:=1 to n do
begin
a[i]:=a[i]*max;
write(a[i],' ');
end;
end.
