Отрицательные числа - Форум
Среда, 07.12.2016, 11:37
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, PASCAL26, atvrider 
Форум » Решение задач по информатике » Другие задания » Отрицательные числа
Отрицательные числа
ЭгоисТДата: Понедельник, 27.09.2010, 18:16 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Целые числа вводятся до тех пор,пока будет введен второй ноль.
Определить количество однозначных отрицательных чисел в последоветельности.
Написать решение и блок схемы!

БЫЛ БЫ ОЧЕНЬ БЛАГОДАРЕН ЗА РЕШЕНИЕ ДАННОЙ ЗАДАЧИ!СРОК РЕШЕНИЯ ЗАДАЧИ ЕСЛИ ВОЗМОЖНО НЕ БОЛЬШЕ НЕДЕЛИ!!!

 
ВахаДата: Четверг, 30.09.2010, 16:54 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
uses CRT;
var
a: array [1..100] of integer;
i, j: integer;
s: byte;
BEGIN
clrscr;
WriteLn ('Введите последовательность:');
i:=1;
s:=0;
while s<2 do
begin
read (a[i]);
if a[i]=0 then inc (s);
inc (i);
end;
s:=0;
for j:=1 to i-1 do
if a[j]<0 then
if a[j] div 10 = 0 then s:=s+1;
Write ('Количество однозначных отрицательных чисел: ', s);
readkey;
END.


Гвардия умирает но не сдается
 
Форум » Решение задач по информатике » Другие задания » Отрицательные числа
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016