Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива

@qwaszx · Регистрация: 20.11.2013

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

Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива. Размерность массива и диапазон значений произвольные.(программа в паскале)

@mellowass · 20.11.2013, 20:41

Одномерный?

@qwaszx · 20.11.2013, 20:43 **[ТС]**

Да

@mellowass · 20.11.2013, 20:52

Pascal

const n = 20;
var massiv : array [1..n] of integer;
i : integer;
k : real;
begin
randomize;
for i:=1 to n do
massiv[i]:=random(20)-10;
for i:=1 to n do
write(massiv[i]:5);
for i:=1 to n do
if massiv[i]>0 then  k:=massiv[i]+k;
k:=k/i;
writeln;
write(k);
end.

@qwaszx · 20.11.2013, 20:53 **[ТС]**

Ну что поможешь ?

Добавлено через 20 секунд
СПАСИБО

@qwaszx 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 10
		1
	Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива 20.11.2013, 20:37. Показов 1486. Ответов 4 Метки нет (Все метки) Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива. Размерность массива и диапазон значений произвольные.(программа в паскале) 0

@mellowass 89 / 69 / 82 Регистрация: 18.11.2013 Сообщений: 113
	20.11.2013, 20:41	2
	Одномерный? 0

@qwaszx 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 10
	20.11.2013, 20:43 [ТС]	3
	Да 0

@qwaszx 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 10
	20.11.2013, 20:53 [ТС]	5
	Ну что поможешь ? Добавлено через 20 секунд СПАСИБО 0