Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Дано натуральное число k Напечатать k-ю цифру последовательности Дано натуральное число k Напечатать k -ю цифру последовательности 1123581321 : : : в которой выписаны подряд все числа Фибоначи (каждое следующее число равно сумме двух предыдущих). https://www.cyberforum.ru/ pascalabc/ thread1013568.html Функции и процедуры Pascal ABC
Составить программу одну с помощью функции, другую с помощью процедуры. Дана последовательность действительных чисел аі, где i = 1,2,3, ..., 15. Дано результат min, и аргумент max(a_7, a_2, a_10),a_6,a_11,max(a_5, a_2, a_3))
Pascal ABC Составить программу с закономерностью https://www.cyberforum.ru/ pascalabc/ thread1013455.html
Составьте программу заполнения массива а следующими числами: -5,-2,1,4,7 ... 19,22. Закономерность: значение первого элемента равно -5, а значение каждого следующего элемента массива на 3 больше предыдущего.
Pascal ABC Определить закономерность https://www.cyberforum.ru/ pascalabc/ thread1013435.html
Определите закономерность и составьте программу заполнения массива а следующими числами: 3,6,9,12 ... 30.
Pascal ABC Составить программу заполнения массива
Составить программу заполнения массива а следующими числами: 3,5,7, ... 21. Закономерность: для каждого элемента массива его значение равно удвоенному индексу, увеличенному на 1.
Pascal ABC В текстовом файле заменить последовательность символов !?! на пробелы https://www.cyberforum.ru/ pascalabc/ thread1013411.html
Помогите.
Pascal ABC Программа с модулем для поиска символа в предложении https://www.cyberforum.ru/ pascalabc/ thread1013405.html
Написал модуль и программу и выходит "Ошибка: переменная не является записью или объектом". Напишите как надо. Unit poisk; interface Var st,b:string; i:byte; k:integer; implementation begin for i:=1 to Length(st) do If st=b then k:=k+1;
Pascal ABC Нарисовать картинки по образцу
надо написать в циклах
Pascal ABC Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы https://www.cyberforum.ru/ pascalabc/ thread1013367.html
Нужно написать программы, 1 любую из первых, и 3 обязательных, может кто уже сталкивался и знает ответ, я еще даже циклы не узучил, а уже задали массивы писать, времени вообще нету, кому не сложно спасайте, кто чем сможет, хоть пару программ. 1. Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы. а) верх...
Pascal ABC Вычислите сумму N слагаемых заданного вида https://www.cyberforum.ru/ pascalabc/ thread1013351.html
1)Вычислите сумму N слагаемых заданного вида Ln(x+√(x^2+1)=x-1/2*x^3/3+(1*3)/(2*4)*x^5/5-(1*3*5)/(2*4*6)*x^7/7+⋯) Спасайте)
Какое количество зерна может покрыть шахматную доску? Pascal ABC
По древней легенде мудрец, который изобрел шахматы, потребовал от персидского шаха такое количество пшеницы, чтобы им можно было покрыть шахматную доску, положив на первую клетку 1 зерно, на вторую - 2, на третью - 4 и т.д., т.е. на каждую следующую клетку в два раза больше зерен, чем на предыдущую. Какое количество зерна может покрыть шахматную доску? Считать, что в одном грамме 15 зерен....
Pascal ABC сглаживание https://www.cyberforum.ru/ pascalabc/ thread1013289.html
uses crt; const nmax=100; type mas=array of real; procedure Smooth(var a:mas;n:byte); var i:byte; x,y,z:real; begin i:=2; x:=a; y:=a;
89 / 69 / 82
Регистрация: 18.11.2013
Сообщений: 113
20.11.2013, 20:52 0

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

20.11.2013, 20:52. Показов 1489. Ответов 4
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.


Вернуться к обсуждению:
Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2013, 20:52
Готовые ответы и решения:

Найти среднее арифметическое всех положительных элементов массива
Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы...

Найти среднее арифметическое всех положительных элементов массива
Дан целочисленный массив из 40 элементов , все элементы которого - целые числа в интервале от -500...

Задан двумерный массив. Найти среднее арифметическое всех положительных элементов массива
Задан двумерный массив. Найти среднее арифметическое всех положительных элементов массива. Заранее...

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

4
20.11.2013, 20:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2013, 20:52
Помогаю со студенческими работами здесь

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

Написать программу, вычисляющую среднее арифметическое всех элементов массива из 200 элементов. Массив заполняется случайными числами
сделaй их nested: http://www.dansteinman.com/dynduo/en/nesting.html

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

Найти сумму всех положительных элементов массива и среднее арифметическое всех элементов
Помогите написать программу: Дан массив A. Найти сумму всех положительных элементов массива и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru