Question

Помогите ) Надо сделать отчет !! Program prog; uses crt; var a:array[1..10] of integer; s,i,max, min: integer; sr: real; begin clrscr; min:=a[1]; for i:=1 to 10 do begin write('a[',i,'] = '); readln(a[i]); end; for i:=1 to 10 do begin s:=s+a[i]; if a[i]>max then max := a[i]; if a[i] end; sr:=s/10; writeln; writeln('Сумма всех элементов массива s = ', s); writeln('Среднее арифметическое sr = ', sr:0:1); writeln('Max = ', Max); writeln('Min = ', Min); end.

Answer 1

Что-то на подобии этого?