Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24. public class zadanie4 { public static void main(String[] args) { . int a[]; a=new int [150]; System.out.println("Исходный массив:"); for (int i=0;i<15;i++) { a[i]=(int) Math.floor(Math.random()*20)-10; System.out.println("a["+i+"]="+a[i]);} for (int i=0;i<15;i++){ if (a[i]>=-5 && a[i]<=5){ a[i]=a[i]+1;}} System.out.println("Полученный массив:"); for (int i=0;i<15;i++) { System.out.println("a["+i+"]="+a[i]);}}}
