tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Подсчитать количество отрицательных
Подсчитать количество отрицательных чисел из 10, введенных с клавиатуры
olyadudina98
2 03.06.2019 03:20
0
Ответы
sbelikova44
03.07.2020 16:22
Uses crt;
var
a:real;
k,i:integer;
begin
for i:=1 to 10 do begin
readln(a);
if a<0 then
k:=k+1;
end;
write(k)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mariauizly88
11.02.2021 05:59
Напишите программу в Задание 1 1. Создайте новый пустой список 2. Добавьте не менее 7 фруктов. 3. Отсортируйте список в обратном алфавитном порядке. 4. Распечатайте...
Vlad584q
05.02.2021 17:16
Вопрос не по школьной программе. У меня завис экран ноутбука, не реагирует ни на что (кроме кнопок погасить экран, уменьшить яркость, прибавить яркость и вкл/выкл),...
SuperRhino757
03.02.2021 17:15
С чего начинается монтаж видео?...
alina06122
03.02.2021 17:15
с дз Определите значение переменной c после выполнения фрагмента программы: a := 2417; b := (a div 100)*2 - 9; a := a mod 100 + 5; с := b - a; В ответе укажите только...
jezv
03.02.2021 17:15
ответь на вопросы . 1)Назовите основные части окна лазарус . 2) Из каких вкладок состоит палитра компонентов ? 3)Опишите функции кнопок расположены на странице standart...
ЛебедЪ
04.10.2019 00:30
Определи, какие из файлов сжимаются лучше всего. system.bmp color color.prg letter.txt system letter...
nastya010620163535
04.10.2019 00:30
Значение арифметического выражения: 2556 + 5138 – 5 записали в системе счисления с основанием 5. сколько цифр «4» в этой записи?...
банан116
04.10.2019 00:30
Выбери допустимые имена файлов. |shema|**..xls computer: shema.xlxs *shema\.xls shema? .xlxs computer.xls...
SiriusSnak
04.10.2019 00:30
Составить программу, которая формирует массив из 27 случайный чисел от -10 дл 15 и нечетные числа заменяет на 3, остальные уменьшает в 3 раза в паскале...
BlueSubaru666
04.10.2019 00:30
Скільки біт в системі unicod буде в реченні: пташка співає на світанку...
Популярные вопросы
б Укажи все словосочетания. 1. Опасную шутку 2. Сказал он мне 3....
1
2. Подготовьте сообщение о климате в павлодаре , употребляя имена...
2
сколько стоит природа написать эссе маленькое ...
3
Почему начавшийся подъем в стране привел к Смутному времени (конец...
1
1.Верховная власть в Караханидском государстве находилось в руках……....
1
Задание 4 Мәтіннің негізгі ойын білдіретін екі сөйлемді анықтаңыздар.Верных...
2
4. Функция y = f(x) определена на отрезке [-7; 4]. Пользуясь графиком...
1
Өлеңде ақынның ішкі жан дүниесі сезімі қалай бейнеленген...
3
4. Коля надул 15 шариков, это в 2 раза меньше, чем его папа. Сколько...
2
11 КЛАС! До ть, контрольна робота з хімії...
2
var
a:real;
k,i:integer;
begin
for i:=1 to 10 do begin
readln(a);
if a<0 then
k:=k+1;
end;
write(k)
end.