Среди 15 действительных чисел, введенных с клавиатуры, подсчитать количество отрицательных и выдать их на экран
5-9 класс
|
В простейшем виде программка будет такой
var A,i,c :integer;
begin
c:=0;
for i:=1 to 15 do begin
write ('введите число: ');
readln(A);
if A<0 then c:=c+1;
end;
writeln ('количество отрицательных чисел = ', c);
end.
Весли надо решать с массивами напиши - подправим
Другие вопросы из категории
>,<Е>,<Т>,<О > .
а) 101010+1101
б)1010+1010
в)10101+111
Выполните операцию умножения над двоич. числами:
1010×11, 111×101; 1010×111
Читайте также
клавиатуры символов и выводит результат сравнения на экран. например 'a'<'б', 'д'='д, 'я'>'ы' в) выполняет сравнение двух введенных с клавиатуры символов и выводит их на экран в порядке вохрастания их кодов
выведите все четыре числа без изменения. Если сумма всех чисел не больше 80, то выведите только два первых числа. Если выполняется одновременно два перечисленных выше условия, то выведите только два последних числа.Иначе, выведите все четыре числа,увеличев их на 5
сумму четных и произведение нечетных и кол-во круглых.
2) среди 15 чисел найдите количество всех чисел которые являются не отрицательными
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.