Из 6 введенных на клавиатуре чисел найти сумму и количество отрицательных.
5-9 класс
|
program z1;
var
i,s,r:integer;
a:array[1..6] of integer;
begin
writeln('Введите числа');
for i:=1 to 6 do
begin
readln(a[i]);
If a[i]<0 then
r:=r+1;
s:=s+a[i];
end;
writeln('Сумма: ',s);
writeln('Кол-во отрицательных чисел: ',r);
end.
Другие вопросы из категории
Путешественник идёт из одного города в другой 10 дней, а другой путешественник тот же путь проходит за 15 дней. Через сколько дней встретятся путешественники, если выйдут одновременно навстречу друг другу из этих городов?
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )