ПОМОГИТЕ Безотлагательно, СОСТАВЛЕНИЕ Программки НА PASCAL1. Сформировать массив из 10 произвольных
ПОМОГИТЕ Безотлагательно, СОСТАВЛЕНИЕ Программки НА PASCAL
1. Сформировать массив из 10 случайных чисел и вывести его на экран. Отыскать сумму и творение элементов с нечетными индексами. Подсчитать количество элементов исходного массива, значения которых превышают среднее арифметическое всех частей массива.
2. В одномерном массиве из 14 целых чисел найти максимальный и малый элементы массива, напечатать их значения. Найти среднее арифметическое частей, величина которых лежит в спектре от 10 до 30. Вывести массив на экран.
3. Ввести одномерный массив из восьми вещественных чисел. Распечатать массив на экране. Подсчитать количество частей начального массива, значения которых наименее среднего арифметического всех частей массива.. Прирастить в три раза значение каждого положительного элемента, а отрицательные элементы поменять их безусловным значением. Вывести на экран измененный массив
4. Сформировать целочисленный массив из 20 вещественных чисел. Вывести массив на экран. Найти сумму квадратов частей с нечетными индексами. Поменять массив последующим образом: все элементы массива с нечётными номерами уменьшены вдвое, а с нечётными увеличены в 5 раз. Вывести измененный массив на экран.
5. Сформировать массив из 15 вещественных чисел и вывести его на экран. Определить количество частей великих его среднего арифметического значений всех нечетных элементов массива. Изменить массив следующим образом: все четные элементы массива увеличить на 7, а элементы с четными индексами уменьшить на 4. Вывести на экран модифицированный массив.
const nx =50;var q, n,sum,sum1,p,i:integer; sr:real;R:Array[1..10] of integer;Beginp:=1;for i:=1 to 10 do beginR[i]:= random(15)-2;sum1:= sum1 +R[i];write(R[i]:3);if i mod 2 =1 then begin sum:= sum +R[i];p:= p +R[i];end;end;writeln;sr:= sum1/10;writeln('Сумма частей с нечетными индексами = ',sum);writeln('Творенье частей с нечетными индексами = ',p);writeln('Среднее арифметическое всех частей массива = ',sr);foreach q in R do beginif q gt; sr then n:= n + 1;end;writeln('количество частей превосходят среднее арифметическое = ',n);end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.