Сформировать массив с клавиатуры из N элементов (N - описываем как константу). Найти:
5-9 класс
|
а) произведение.
б) среднее арифметическое всех нечетных элементов массива.
в) максимальный элемент массива.
Выполняем в одной программе.
const
n=10;
var a:array[1..n] of integer;
i,max,p,sr,k:integer;
begin
p:=1;
max:=1;
for i:=1 to n do begin
read(a[i]);
p*=a[i];
if odd(a[i]) then begin sr+=a[i]; k+=1; end;
if a[i]>a[max] then max:=i;
end;
write('P=',p,' Sr=',sr/k:3:2,' max=',a[max]);
end.
Другие вопросы из категории
А) R2D2, Б) киборг, В) android, Г) T1000.
помогите пожалуйста,сегодня нужно
растровое изображение имело палитру 2 цвета. В процессе его преобразования
информационный объём увеличился в 8 раз. Сколько цветов стало в палитре?
ПОМОГИТЕ ПОЖАЛУЙСТА!КАК ПРАВИЛЬНО ОФОРМИТЬ И РЕШИТЬ?
Читайте также
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.