Заполнить одномерный массив(кол-во чисел n< =15)случайными целыми числами,по модулю непревыщаюшщими 10.найти минимальный элемент в массиве, его индекс, а так же сумму элементов массива.

program program1; vara: array [1..15] of integer; i,min,nmin,sum: integer; beginrandomize; writeln('массив: '); for i: =1 to 15 dobegina[i]: =random(20)-10; writeln('a[',i,']=',a[i]); end; sum: =0; nmin: =1; min: =a[nmin]; for i: =1 to 15 dobeginsum: =sum+a[i]; if min> a[i] thenbeginmin: =a[i]; nmin: =i; end; end; writeln; writeln('минимальный элемент в массиве: ',min,' его индекс: ',nmin,' сумма элементов массива: ',sum); end.

 

Объяснение:

аьтаосдсьчт636846т69989=7=7=49497572644%477шоплаьаатсоплояояьяьчьвлцдыллыьыьылвьвьвьвълвововлвооы до т6лрсооо555454647-꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡(´∩｡• ᵕ •｡∩`) (*＾3＾)/～♡♡(> ਊ <)♡( ˘ ³˘)♥(〃ﾟ3ﾟ〃)(◕દ◕)( ˘ ³˘)♥(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(●’3)♡(ε`●)(/^-^(^ ^*)/(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)надеюсь