Подсчёт среднего значения всех положительных элементов

@Илья =) · Регистрация: 21.02.2011

Студворк — интернет-сервис помощи студентам

вот по этим данным:

1. S:=0; N:=0;
{начальное значение суммы элементов}
{начальное значение количества положительных элементов}

2. Цикл 10 раз для i
2.1 Если A[i]>0, то
2.1.1 S:=S+A[i] {увеличили сумму}
2.1.2 N:=N+1 {увеличили колличество}
3. R:=S/N {подсчитали среднее значение}
4. вывод R

ЗАРАНЕЕ СПАСИБО!!!

@marshal · 17.04.2011, 15:19

Всё же уже сами написали, просто вспомнить команды и все!

@Илья =) · 17.04.2011, 15:21 **[ТС]**

а можешь команды подсказать?

@marshal · 17.04.2011, 15:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a:array[1..10]of integer;i,s,n:integer;{Делаешь размерность массива 10 и указываешь переменные}
begin
for i:=1 to 10 do {Вот этот цикл с параметром(с изменением параметра i) можешь использовать еще циклы Repeat until и while do}
begin
writeln(' введите ',i,' элемент');
readln(a[i]);
if a[i]>0 then begin {проверка условия, если элемент больше 0 тогда считать среднее арифм.}
s:=s+a[i];{переменным s и n не надо присваивать значение ноль, так как они изначально нули}
n:=n+1;
end;
end;
writeln('среднее значение = ',(s/n):1:2);{также можно не использовать лишнюю переменную r, а написать выражение за апострофом и запятой}
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Илья =) 1 / 1 / 0 Регистрация: 21.02.2011 Сообщений: 13

	Подсчёт среднего значения всех положительных элементов 17.04.2011, 14:57. Показов 777. Ответов 3 Метки нет (Все метки) вот по этим данным: 1. S:=0; N:=0; {начальное значение суммы элементов} {начальное значение количества положительных элементов} 2. Цикл 10 раз для i 2.1 Если A[i]>0, то 2.1.1 S:=S+A[i] {увеличили сумму} 2.1.2 N:=N+1 {увеличили колличество} 3. R:=S/N {подсчитали среднее значение} 4. вывод R ЗАРАНЕЕ СПАСИБО!!! 0

@marshal Robin Bad на форуме 237 / 237 / 194 Регистрация: 14.12.2010 Сообщений: 513
	17.04.2011, 15:19
	Всё же уже сами написали, просто вспомнить команды и все! 0

@Илья =) 1 / 1 / 0 Регистрация: 21.02.2011 Сообщений: 13
	17.04.2011, 15:21 [ТС]
	а можешь команды подсказать? 0