Сформировать одномерный массив из 10 случайных элементов в диапазоне
10-11 класс
|
от 0 до 100. Найти количество элементов массива, больших среднего арифметического
всех его элементов. Если это количество чѐтное, то увеличить каждый элемент массива на
величину индекса; иначе поменять местами центральные элементы. Вывести исходный и
итоговый массивы на экран.
Пишите, пожалуйста, язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
begin
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
for i:=1 to 10 do
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
begin
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
end;
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.
Другие вопросы из категории
информационный объем рассказа в кодировки kol8-r в мб
предположения каждый, и только одно из них оказалось верным. I — Алексей не на 2-ом, Виктор на 2-ом. II — Борис на 2-ом, Виктор на 1-ом. III — Алексей не на 1-ом, Борис на 2-ом.
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
половину массива и выводит новый массив на экран.
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.