└── largest element


/largest element:
--------------------------------------------------------------------------------
 1 | program  n_4;
 2 |   var i, imax: integer; 
 3 |       a: array[1..10] of integer;
 4 | begin 
 5 |   randomize;
 6 | 
 7 |   for i:=1 to 10 do a[i]:=random(100);
 8 |   for i:=1 to 10 do write(a[i],' ');
 9 | 
10 |   imax:=1;
11 | 
12 |   for i:=2 to 10 do
13 |     if a[i]>a[imax] then
14 |        imax:=i;
15 | 
16 |   write('Наибольший элемент   a[', imax, ']=', a[imax])
17 | 
18 | end.
19 | 


--------------------------------------------------------------------------------