Кто знает как решить задачу ?

Нужно вычислить сумму элементов массива А [1 .. 10] что больше введенного с клавиатуры числа

Розвязувати задачу в Program Z1 или Паскаль

 

Дан целочисленный массив. Необходимо вывести вначале его элементы с четными индексами, а затем - с нечетными.
Дан целочисленный массив. Необходимо вывести вначале его элементы с нечетными индексами, а затем - четными.
Дан целочисленный массив. Вывести номер первого из тех его элементов, которые удовлетворяют двойному неравенству: A[0] < A < A[-1]. Если таких элементов нет, то вывести [ ].
Дан целочисленный массив. Вывести номер последнего из тех его элементов, которые удовлетворяют двойному неравенству: A[0] < A < A[-1]. Если таких элементов нет, то вывести [ ].
Дан целочисленный массив. Преобразовать его, прибавив к четным числам первый элемент. Первый и последний элементы массива не изменять.
Дан целочисленный массив. Преобразовать его, прибавив к четным числам последний элемент. Первый и последний элементы массива не изменять.
Дан целочисленный массив. Преобразовать его, прибавив к нечетным числам последний элемент. Первый и последний элементы массива не изменять.
Дан целочисленный массив. Преобразовать его, прибавив к нечетным числам первый элемент. Первый и последний элементы массива не изменять.
Дан целочисленный массив. Заменить все положительные элементы на значение минимального.
Дан целочисленный массив. Заменить все положительные элементы на значение максимального.
Дан целочисленный массив. Заменить все отрицательные элементы на значение минимального.
Дан целочисленный массив. Заменить все отрицательные элементы на значение максимального.
Дан целочисленный массив. Осуществить циклический сдвиг элементов массива влево на одну позицию.
Дан целочисленный массив. Осуществить циклический сдвиг элементов массива вправо на одну позицию.
Дан целочисленный массив. Проверить, образуют ли элементы арифметическую прогрессию. Если да, то вывести разность прогрессии, если нет - вывести nil.
Дан целочисленный массив. Проверить, образуют ли элементы геометрическую прогрессию. Если да, то вывести знаменатель прогрессии, если нет - вывести nil.
Дан целочисленный массив. Найти количество его локальных максимумов.
Дан целочисленный массив. Найти количество его локальных минимумов.
Дан целочисленный массив. Найти максимальный из его локальных максимумов.
Дан целочисленный массив. Найти минимальный из его локальных минимумов.
Дан целочисленный массив. Определить количество участков, на которых его элементы монотонно возрастают.
Дан целочисленный массив. Определить количество участков, на которых его элементы монотонно убывают.
Дано вещественное число R и массив вещественных чисел. Найти элемент массива, который наиболее близок к данному числу.
Дано вещественное число R и массив вещественных чисел. Найти элемент массива, который наименее близок к данному числу.
Дан целочисленный массив. Преобразовать его, вставив перед каждым положительным элементом нулевой элемент.
Дан целочисленный массив. Преобразовать его, вставив перед каждым отрицательным элементом нулевой элемент.
Дан целочисленный массив. Преобразовать его, вставив после каждого положительного элемента нулевой элемент.
Дан целочисленный массив. Преобразовать его, вставив после каждого отрицательного элемента нулевой элемент.
Дан целочисленный массив. Упорядочить его по возрастанию.
Дан целочисленный массив. Упорядочить его по убыванию.
Дан целочисленный массив. Вывести индексы массива в том порядке, в котором соответствующие им элементы образуют убывающую последовательность.
Дан целочисленный массив. Вывести индексы массива в том порядке, в котором соответствующие им элементы образуют возрастающую последовательность.
Дан целочисленный массив. Найти индекс минимального элемента.
Дан целочисленный массив. Найти индекс максимального элемента.
Дан целочисленный массив. Найти индекс первого минимального элемента.
Дан целочисленный массив. Найти индекс первого максимального элемента.
Дан целочисленный массив. Найти индекс последнего минимального элемента.
Дан целочисленный массив. Найти индекс последнего максимального элемента.
Дан целочисленный массив. Найти количество минимальных элементов.
Дан целочисленный массив. Найти количество максимальных элементов.
Дан целочисленный массив. Найти минимальный четный элемент.
Дан целочисленный массив. Найти минимальный нечетный элемент.
Дан целочисленный массив. Найти максимальный четный элемент.
Дан целочисленный массив. Найти максимальный нечетный элемент.
Дан целочисленный массив. Найти минимальный положительный элемент.
Дан целочисленный массив. Найти максимальный отрицательный элемент.
Дан целочисленный массив и интервал a..b. Найти минимальный из элементов в этом интервале.
Дан целочисленный массив и интервал a..b. Найти максимальный из элементов в этом интервале.
Дан целочисленный массив. Найти количество элементов, расположенных перед первым минимальным.
Дан целочисленный массив. Найти количество элементов, расположенных перед первым максимальным.
Дан целочисленный массив. Найти количество элементов, расположенных после первого максимального.
Дан целочисленный массив. Найти количество элементов, расположенных после первого минимального .
Дан целочисленный массив. Найти количество элементов, расположенных перед последним максимальным.
Дан целочисленный массив. Найти количество элементов, расположенных перед последним минимальным.
Дан целочисленный массив. Найти количество элементов, расположенных после последнего максимального.
Дан целочисленный массив. Найти количество элементов, расположенных после последнего минимального .
Дан целочисленный массив. Найти индекс первого экстремального (то есть минимального или максимального) элемента.
Дан целочисленный массив. Найти индекс последнего экстремального (то есть минимального или максимального) элемента.
Дан целочисленный массив. Найти количество элементов, между первым и последним минимальным.
Дан целочисленный массив. Найти количество элементов, между первым и последним максимальным.
Дан целочисленный массив. Найти два наибольших элемента.
Дан целочисленный массив. Найти два наименьших элемента.
Дан целочисленный массив. Найти максимальное количество подряд идущих минимальных элементов.
Дан целочисленный массив. Найти максимальное количество подряд идущих максимальных элементов.
Дан целочисленный массив. Вывести вначале все его четные элементы, а затем - нечетные.
Дан целочисленный массив. Вывести вначале все его нечетные элементы, а затем - четные.
Дан целочисленный массив. Проверить, чередуются ли в нем четные и нечетные числа.
Дан целочисленный массив. Проверить, чередуются ли в нем положительные и отрицательные числа.
Дано вещественное число R и массив вещественных чисел. Найти два элемента массива, сумма которых наиболее близка к данному числу.
Дано вещественное число R и массив вещественных чисел. Найти два элемента массива, сумма которых наименее близка к данному числу.
Дан целочисленный массив. Удалить все элементы, встречающиеся менее двух раз.
Дан целочисленный массив. Удалить все элементы, встречающиеся более двух раз.
Дан целочисленный массив. Удалить все элементы, встречающиеся ровно два раза.
Дан целочисленный массив. Удалить все элементы, встречающиеся ровно три раза.
Дан целочисленный массив. Найти среднее арифметическое модулей его элементов.
Дан целочисленный массив. Найти среднее арифметическое квадратов его элементов.
Дано целое число. Найти сумму его цифр.
Дано целое число. Найти произведение его цифр.
Дан целочисленный массив. Возвести в квадрат отрицательные элементы и в третью степень - положительные. Нулевые элементы - не изменять.
Дан дипапазон a..b. Получить массив из чисел, расположенных в этом диапазоне (исключая сами эти числа), в порядке их возрастания, а также размер этого массива.
Дан дипапазон a..b. Получить массив из чисел, расположенных в этом диапазоне (исключая сами эти числа), в порядке их убывания, а также размер этого массива.
Дано число А и натуральное число N. Найти результат следующего выражения 1 + А + А*2 + А*3 + … + А*N.
Дано число А и натуральное число N. Найти результат следующего выражения 1 - А + А*2 - А*3 + … + (-1**N)*А*N.
Дано натуральное число N. Найти результат следующего произведения 1*2*…*N.
Дано натуральное число N. Если N - нечетное, то найти произведение 1*3*…*N; если N - четное, то найти произведение 2*4*…*N.
Дан целочисленный массив. Найти среднее арифметическое его элементов.
Дан целочисленный массив. Найти все четные элементы.
Дан целочисленный массив. Найти количество четных элементов.
Дан целочисленный массив. Найти все нечетные элементы.
Дан целочисленный массив. Найти количество нечетных элементов.
Дан целочисленный массив и число К. Если существует элемент, меньший К, то вывести true; в противном случае вывести false.
Дан целочисленный массив и число К. Если существует элемент, больший К, то вывести true; в противном случае вывести false.
Дан целочисленный массив и число К. Если все элементы массива меньше К, то вывести true; в противном случае вывести false.
Дан целочисленный массив и число К. Если все элементы массива больше К, то вывести true; в противном случае вывести false.
Дан целочисленный массив и число К. Вывести количество элементов, меньших К.
Дан целочисленный массив и число К. Вывести индекс первого элемента, большего К.
Дан целочисленный массив и число К. Вывести индекс последнего элемента, меньшего К.
Дан целочисленный массив. Вывести индексы элементов, которые меньше своего левого соседа, и количество таких чисел.
Дан целочисленный массив. Вывести индексы элементов, которые меньше своего правого соседа, и количество таких чисел.
Дан целочисленный массив. Вывести индексы элементов, которые больше своего правого соседа, и количество таких чисел.
Дан целочисленный массив. Вывести индексы элементов, которые больше своего левого соседа, и количество таких чисел.
Дан целочисленный массив. Проверить, образует ли он возрастающую последовательность.
Дан целочисленный массив. Проверить, образует ли он убывающую последовательность.
Дан целочисленный массив. Проверить, образует ли он упорядоченную последовательность.
Дан целочисленный массив. Если данный массив образует убывающую последовательность, то вывести nil, в противном случае вывести номер первого числа, нарушающего закономерность.
Дан целочисленный массив, содержащий по крайней мере два нуля. Вывести сумму чисел из данного массива, расположенных между первыми двумя нулями.
Дан целочисленный массив, содержащий по крайней мере два нуля. Вывести сумму чисел из данного массива, расположенных между последними двумя нулями.
Дан целочисленный массив и целое число К. Возвести в степень К все элементы массива.
Дан целочисленный массив. Найти минимальный и максимальный элемент в массиве.
Дан целочисленный массив. Поменять местами минимальный и максимальный элементы массива.
Дан целочисленный массив. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальным элементами.

 

read(g)
Do n=1,10
if a[n]>g then
s=s+a[n]
end if
end do

с синтаксом напартачил ну пох_) разберешся

 

Disi, ет типа розвязок задачи ? )

 

да, це і є розвязок, але це на Fortran написано, тобі треба це перекласти на паскаль і дописати
program ds
var a[10]:array of integer
g,s:real
Begin
і тут те що я тобі дав
end

 

DiSi, а можеш замутити мені уже готове ?

просто я не шарю в цій фігні )

і це для дівчини треба )

 

цицьки дівчини давай))
ні не можу, 1.5 роки не програмую, синтаксису непомню
можливо так але не впевнений
program ds
var a[10]:array of integer
g,s,n:real
Begin
Readln(g);
n=0;
for n:=1 to 10 do
Readln(a[n]);
end
n=0;
for n:=1 to 10 do
Begin
if a[n]>g then
Begin
s=s+a[n];
end
end
writln(s);
end

 

DiSi, ну дякую

будем бачити чи добре )

 

А це вже перекладано в паскаль ?

 

Первый курс, первая лаба. Мне не верится, что для дiвчини делаешь