дано натуральное число n и последовательность из n натуральных чисел. написать программу определяющую количество положительных членов в
5-9 класс
|
последовательности
Pascal
var
mas:array[1..100] of integer;
sum,n,i:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
readln(mas[i]);
for i:=1 to n do
if mas[i]>0 then
sum:=sum+1;
writeln(sum);
end.
Другие вопросы из категории
Составить программу вывода тех двух значных чисел которые делятся на 9 без остатка
1)Боль
2)10
3)Вектор
4)Весть
5)Ива
6)Мент
7)Мина
8)Модуль
9)Моль))))))))))
выразился мой учитель это подсказка: P=INT(RND*90+10)
3.Выполнить сортировку массива по возрастанию.
4.Вывести значение массива в столбик на экран.
Пожалуйста помогите..сегодня весь класс двойки получил...
Читайте также
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
системе счисления с определенным основанием, не меняя порядка чисел. Все числа записаны в системах счисления с разными основаниями. Получилась следующая запись:37 35 33 31Определите, в какой системе счисления записано последнее число, если известно, что одно из чисел записано в восьмеричной системе счисления. В ответе укажите натуральное число, равное основанию этой системы счисления.
Пример.
ввод:
4
1 2 3 4
вывод:
4 3 2 1
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
1.В магазине продается мастика в ящиках по 15 кг,17 кг,21 кг. Как купить ровно 185 кг мастики, не вскрывая ящики?Сколькими способами можно это сделать?
2.Ввести натуральное число N и вывести все натуральные числа,не превосходящие N и делящиеся на каждую из своих цифр. Пример: Введите N: 15 1 2 3 4 5 6 7 8 9 11 12 15.