Вывести на экран элементы одномерного массива, большие среднего арифметического

@drmorison · Регистрация: 23.12.2017

Вывести на экран элементы одномерного массива, большие среднего арифметического.

@ZX Spectrum-128 · 24.12.2017, 09:36

Pascal

s:=0;
for i:=1 to n do
 s:=s+a[i];
s:=s/n;
for i:=1 to n do
if a[i]>s then
 write(a[i]);

@drmorison 0 / 0 / 0 Регистрация: 23.12.2017 Сообщений: 10
		1
	Вывести на экран элементы одномерного массива, большие среднего арифметического 24.12.2017, 00:48. Показов 1711. Ответов 1 Метки нет (Все метки) Вывести на экран элементы одномерного массива, большие среднего арифметического. 0

	24.12.2017, 09:36

Опции темы

Решение