В массиве из 10 чисел есть положительные и отрицательные элементы.Вычислить сумму отрицательных элементов масива. Составить программу на языке
10-11 класс
|
паскаль и блок-схему.заранее спасибо)
![](https://avatar.neparsya.net/avatar/10611.gif)
![](https://avatar.neparsya.net/avatar/18742.gif)
Program Seleone;
const n=10;
var a:array[1..n] of integer;
sum, i: integer;
begin
writeln('*** alphaues is thinking... ***');
sum:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i] < 0 then sum := sum + a[i];
end;
writeln('Сумма отрицательных элементов равна ',sum);
end.
Другие вопросы из категории
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.