Паскаль random (50) найти: массив [0..20] сумма всех элементов максимальный элемент элемент=10

Const n=20; var a: array[1..n] of integer; max,s,k,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(50);   write(a[i],' ');   end; writeln; max: =a[1];   s: =0; k: =0; for i: =1 to n do   begin   if a[i]> max then max: =a[i];     s: =s+a[i];   if a[i]=10 then k: =i;   end; writeln('max = ',max,'   s = ',s); if k> 0   then writeln('элемент = 10 имеет номер ',k)   else writeln('в массиве нет элемента = 10'); end. пример: 13 47 29 31 34 5 37 35 3 40 10 42 15 3 3 26 36 14 16 43  max = 47   s = 482 элемент = 10 имеет номер 11

Var i,s,max,f: integer; a: array[0..20] of integer; begin  s: =0; max: =-100;   for i: =0 to 20 do begin                      a[i]: =random (50);                       write(a[i]: 3);                     end;     for i: =0 to 20 do begin                      s: =s+a[i];                       if a[i]> max then max: =a[i];                     end;   writeln;   writeln('сумма всех элементов = ',s);   writeln('десятый эдлемент = ',a[9]);   writeln('максимальный элемент = ',max); end.

2^i = 24

i = 5

ответ. 5 лампочек.

рождения 30.05.95

300