Составить блок-схему алгоритма определения суммы положительных чисел из десяти.
10-11 класс
|
Program pr;
uses crt;
Var i,a,x:integer;
Begin
x:=0;
for i:=1 to 10 do
Begin
readln(a);
if a>0 then x:=x+1;
end;
Writeln('Кол-во положительных чисел= ', x);
readln;
end.
Другие вопросы из категории
программу , которая присваивает переменной х значение 9, а затем выводит на
экран: в первой строке это значение с поясняющей надписью (например значение
х равно 9), а во второй – квадрат этого значения (тоже – с поясняющей
надписью).
Заполнить двухмерный массив ABCD [1..5,1..5] константами:
1 4 7 -10 13
7 10 13 15 19
13 -16 19 22 25
19 22 25 -28 31
25 28 31 34 37
а) Удвоить все элементы массива, которые > 3.
б) Найти сумму всех элементов полученного массива.
в) Вывести на экран исходный и полученный массив.
это сообщение?
Задача 2. Информационное сообщение имеет объем 3 Кбайта. Сколько в нем символов, если размер алфавита, с помощью которого оно было составлено, равен 16?
укажите целое число.
допускаются . В массиве A[n] записаны оценки экзаменующихся , полученные на первом экзамене . Подсчитать , сколько человек не допущено ко второму экзамену .
Читайте также
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Задание 2) Разработать блок схему алгоритма? для вычисления и вывода на экран суммы 5 случайных числе в диапазоне 0..36.
Задание: даны действительные а1,...,аn. Вычислить сумму положительных и произведение четных членов данного массива, если таких членов нет, выдать сообщение
Даны три целых числа.Найти кол-во положительных чисел в исходном наборе.