"Это пасхалка"...........................
Удаление
дописываю до 20ти символов)
var a:array [1..100] of real;
i,n:integer;
t:real;
Begin
randomize;
n:=20;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
t:=a[1]
for i:= 1 to n do begin
a[i]:=a[i]/t ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
End.
Не понял точно, что значит в развернутом виде, но если ты имел ввиду разложить на десятки, то вот:10000+3000+600+60+3
C# 8.0
using System.Linq;
...
int Max = new int[]{a,b,c}.Max();