с объяснением)КАК МОЖНО СКОРЕЕ.Определите принцип преобразования информации. НАПРИМЕР:. ОТВЕТ Утро. З Утром-завтрак День. О. Днем-обед Вечер ? Вечер-ужин.
Прикладное ПО - тоесть то, кторое решает конкретные задачи. Рисовалки, писалки, написание музыки и т.п. Существует много офисных пакетов, среди ник майкрософт офис, либре офис, опен офис. Вопрос о том, какая из них лучше - не корректен. Наиболее расправтренен майкрасофт офис, но он платный и за его кражу сейчас наказывают. Но он ничем не лучше бесплатных аналогов кроме того, что он - фактически стандарт - все на нем работают. Остальные прикладные программы расматривать не имеет смысла - так как это разговор на 60 страниц с приложением.
У вас не указано, над каким именно массивом нужно производить вышеописанное действие, поэтому я выкладываю общее решение. Предположим, что a - это массив с какими-то сохранёнными числами до a[n]
for i:=1 to n do if a[i] > 0 then begin k:=k+1; sum:=sum+a[i] end; average:=sum/k;
(a - данный массив, sum - сумма всех положительных чисел, k - количество положительных чисел - n - индекс последнего элемента массива, i - переменная для цикла, average - переменная, сохраняющая численное значение) Запускаем цикл от 1 до n и перебираем все числа массива. Если i-тое число положительно, мы прибавляем его к sum, и увеличиваем k на 1, который сохраняет в себе количество положительных чисел массива. После завершения цикла, мы получаем k - количество положительных чисел, sum - сумма всех положительных чисел. Чтобы найти среднее арифметическое, делим сумму всех чисел на их количество. (Учитывайте, что переменная, сохраняющая среднее арифметическое должна иметь вещественный тип (real, double...)) Вот и всё. Если у вас возникают какие-то проблемы или ошибки в коде - оставьте комментарий. Если у вас проблемы с созданием массива (чтение массива с клавиатуры или создание массива со случайными числами) - опять же таки пишите:)
Предположим, что a - это массив с какими-то сохранёнными числами до a[n]
for i:=1 to n do
if a[i] > 0 then
begin
k:=k+1;
sum:=sum+a[i]
end;
average:=sum/k;
(a - данный массив, sum - сумма всех положительных чисел, k - количество положительных чисел - n - индекс последнего элемента массива, i - переменная для цикла, average - переменная, сохраняющая численное значение)
Запускаем цикл от 1 до n и перебираем все числа массива. Если i-тое число положительно, мы прибавляем его к sum, и увеличиваем k на 1, который сохраняет в себе количество положительных чисел массива.
После завершения цикла, мы получаем k - количество положительных чисел, sum - сумма всех положительных чисел. Чтобы найти среднее арифметическое, делим сумму всех чисел на их количество.
(Учитывайте, что переменная, сохраняющая среднее арифметическое должна иметь вещественный тип (real, double...))
Вот и всё. Если у вас возникают какие-то проблемы или ошибки в коде - оставьте комментарий. Если у вас проблемы с созданием массива (чтение массива с клавиатуры или создание массива со случайными числами) - опять же таки пишите:)