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
# Код на ruby 2.2.3p173 def zadanie(n) k = 0 for alice in 2..(n-2) for basilio in 1..(n-3) for duremar in 1..(n-3) if alice > basilio and alice > duremar and alice + basilio + duremar == n k += 1 p [alice, basilio, duremar] end
60,111100,3C,74