Дан одномерный массив. Найти сумму отрицательных элементов, стоящих на четных местах. Хелп, срочно, спасибо))
5-9 класс
|
program qq;
var a:array of [1..длина массива] of real;
i:integer;
summ:real;
begin
summ:=0;
for i:=1 to длина массива do read(a[i]);
for i:=1 to длина массива do
if (i mod 2 = 0) and (a[i]<0) then summ:=summ+a[i];
writeln(summ);
end.
Другие вопросы из категории
среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
к подснежник подлокотник.
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
1) Заменить все чётные элементы на их номера. Вывести на экран исходный и новый массив.
2) Заменить все чётные элементы, стоящие на нечетных местах, на их номера.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста