Răspunsuri

2014-11-10T17:05:41+02:00
2014-11-10T17:23:16+02:00
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.