сервис вопросов и ответоввыводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле
5-9 класс|
|
Dimasd3
10 апр. 2014 г., 22:31:09 (10 лет назад)
Putintseva84
10 апр. 2014 г., 23:50:56 (10 лет назад)
Program Stats;
var a,k,d,c:integer;
begin
d:=0;
k:=0;
c:=0;
repeat
readln(a);
d:=d+1;
if a>= 0
then
begin
k:=k+1;
end;
if a<0
then
begin
c:=c+1;
end;
until d = 14;
writeln('+ ',k);
writeln('- ',c);
readln
end.
Ответить
Другие вопросы из категории
Вычислите значение переменной Y после выполнения фрагмента программы int r=35%10, y; if (r==0) y=r*10; if (r>0) y=r+10; if (r<0) y=r*r/2;
printf("%d",y);
Внимание! Внимание! Обратите внимание!
У Андрея на жестком диске компьютера есть игра TETRIS. У его друга Коли такой игры нет. Что нужно сделать Андрею, чтобы Коля смог на своем компьютере поиграть в эту игру?
Читайте также
Паскаль.
вводятся числа, последнее число "0", определить сколько в них положительных нечетных и найти сумму отрицательных.
Помогитеее!!
В ПАСКАЛЕ!№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
Помогите пожалуйста с ИВТ: 1.Случайным образом генерируется N целых чисел в диапазоне от -5 до 5. Посчитать сколько среди них положительных,
отрицательных, и не равных нуля. Задача решается через Turbo Pascal
Вы находитесь на странице вопроса "выводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.