40 не подходит тк надо ответ записать по неубыванию 1030 не подходит т.к максимальная сумма 3-х 9 равна 27 130 также как и 1030 1320-подходит 2019-не подходит т.к должно быть по неубыванию 1920 -не подходит т.к сумма 2-х 9 =18 2013-не подходит по неубыванию 213 -подходит 3010 - не подходит 27
{ правильная программа, кол-во элементов вводится с клавиатуры } Program Summa; uses crt; type a1= array of integer; var a: a1; m,s,n: integer; procedure Input; const p=1; const q=20; var i: integer; begin randomize; begin for i:=0 to n-1 do a[i]:=random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end; procedure Print; var i: integer; begin write('Массив целых чисел А: '); for i:=0 to n-1 do write(' ',a[i]); writeln; writeln; end; procedure Sum( m: integer); var i: integer; begin s:=0; for i:=0 to m-1 do s:=s+a[i]; end; Begin ClrScr; write('введите кол-во элементов в массиве: '); readln(n); SetLength(a, n); Input; ClrScr; Print; write('Сколько элементов суммировать: '); readln(m); Sum(m); writeln; writeln('Сумма ',m,' элементов масссива равна: ', s); Sum(n); writeln; writeln('Сумма всех ',n,' элементов массива равна: ', s); Writeln ('Среднее арифмитическое всех элементов равно ', s/n); Readkey; end.
Function f(a,b:real):real; begin if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a; end; var t,m,s:real; begin write('t = '); readln(t); write('m = '); readln(m); s:=sqr(f(2*t+m,t*m))+sqr(f(3*m,2*t)); writeln('S = ',s); end.