Ввести одномерный массив из N вещественных чисел в диапазоне от -10 до 10. вывести массив на экран. Вычислить среднее арифметическое квадратов отрицательных чисел, положительные элементы заменить значениями их индексов. Вывести массив на экран. Отсортировать получившиеся массив и вывести его на экран
const n=10;var a:array [1..n] of real;i,j,k:integer;s,v:real;beginwrite(' Исходный массив: ');for i:=1 to n dobegina[i]:=random*20-10;write(a[i]:7:2);if a[i]<0 thenbegins:=s a[i]*a[i];k:=k 1end;if a[i]>0 then a[i]:=iend;writeln;write('Преобразованый массив: ');for i:=1 to n do write(a[i]:7:2);writeln;for i:=1 to n dofor j:=1 to n-i doif a[j]>a[j 1] thenbeginv:=a[j];a[j]:=a[j 1];a[j 1]:=vend;write('Отсортированый массив: ');for i:=1 to n do write(a[i]:7:2);writeln;writeln('Среднее арифметическое квадратов отрицательных чисел равно ',s/k:0:2);end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
