Дан массив в котором есть положительные и отрицательные числа. Найти отдельно сумму положительных чисел и сумму отрицательных чисел.
10-11 класс
|
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 чисел.
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.
Другие вопросы из категории
Читайте также
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .