сервис вопросов и ответовДан массив в котором есть положительные и отрицательные числа. Найти отдельно сумму положительных чисел и сумму отрицательных чисел.
10-11 класс|
|
Nusha1
05 апр. 2016 г., 14:26:21 (8 лет назад)
Olol299
05 апр. 2016 г., 14:57:54 (8 лет назад)
var
a:array[1..100] of integer;
i,s,r:integer;
begin
for i:=1 to 100 do read(a[i]);
for i:=1 to 100 do
begin
if a[i]<0 then r:=r+a[i] else s:=s+a[i];
end;
writeln('сумма всех положительных чисел= ',s);
writeln('сумма всех отрицательных чисел= ',r);
readln
end.
Посчитает максимум 100 чисел.
танкимир
05 апр. 2016 г., 15:35:09 (8 лет назад)
var a:array[1..100] of integer;
i,ms,ps:integer;
Begin
{vvod massiva A}
for i:= 1 to 100 do
if a[i] > 0 then ps:=ps+a[i]
else ms:=ms+a[i];
writeln(ps,ms);
End.
Ответить
Другие вопросы из категории
Читайте также
Паскаль. 12.Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце. 13.Даны два массива А(3*3)
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Составить программы: 1.Дана строка символов, среди которых есть двоеточие. Определить, сколько символов следуют за двоеточием.
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Вы находитесь на странице вопроса "Дан массив в котором есть положительные и отрицательные числа. Найти отдельно сумму положительных чисел и сумму отрицательных чисел.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.