сервис вопросов и ответовВводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочно надо.
5-9 класс|
|
Анастасия63217546754
10 июня 2013 г., 17:49:58 (10 лет назад)
Sasha04128
10 июня 2013 г., 20:24:04 (10 лет назад)
var
s,p,n,i:integer;
mas: array[1..7] of integer;
begin
s:=0;
p:=1;
n:=0;
for i:=1 to 7 do
read(mas[i]);
for i:=1 to 7 do begin
if mas[i]>=0 then begin
s:=s+mas[i];
p:=p*mas[i];
end
else
n:=n+1;
end;
write('summa=', s, ', proizvedenie=', p, ', otrezatelnich=', n);
end.
Ответить
Другие вопросы из категории
При печати на струйном принтере:
1. следы оставляются специальными наборными пластинами
2. иголочки ударяют по красящей ленте, оставляя следы
3. капля чернил впрыскивается на бумагу через сопло
Читайте также
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
1)Определить если в
составе двухзначного
числа одинаковые цифры.
2)Вводятся 2 числа одного
ли они знака?
3)Вводиться двухзначное
число, посчитать
произведение чисел.
4)Принадлежит ли х
отрезку 1.5?
5)является ли ввод с
порядковым номером у
высокосным или нет
6)Вводиться 4 числа,
посчитать сумму
произведений
отрицательных чисел.
7)Вводиться 5 чисел найти
сумму чисел меньше 3, и
произведение чисел
больше 5.
8)Вводиться число
определить его знак.
9)Вводиться 6 чисел найти
сумму произведений тех
из них которые больше 10.
1.С клавиатуры вводится 3 числа. Найти сумму только из положительных чисел.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Вы находитесь на странице вопроса "Вводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочно надо.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.