Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
079023296
27.07.2022 20:09 •
Информатика
Подсчитать кол-во отрицательных чисел из 10 введенных с клавы (pascal abc.net)
Показать ответ
Ответ:
DIAAADA
06.10.2020 20:58
Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Cet31072007
18.07.2020 20:20
Даны действительные числа a(1), ..., a(7). Вычислить a(1)2 +...+ a(7)2 . Исходные данные вносятся с клавиатуры. решить в с++ работа с массивами и циклами...
programprogram
10.08.2022 07:34
Ситуация такая, в начале загрузки все хорошо, но спустя время, скорость падает до 0. С интернетом все хорошо, 200 мб/сек, подключение по WIFI. В steam с загрузкой все норм,...
karina36517
03.02.2022 08:55
Дан массив десяти случайных, целых чисел, заданных на промежутке [0,20]. удалить пятый элемент массив....
kisa99w934e8
03.02.2022 08:55
Мальчик заменил каждую букву своего имени её номером в алфовите. получилось 18 21 19 13 1 15. как зовёт мальчика...
CrasH1990
12.01.2020 01:40
Унас в школе квн. нужно придумать вольный перевод песни макарена только нужно быстро, не...
Софа1е
15.04.2020 17:07
мне очень Соч по математике ...
Julieta11
31.01.2020 10:13
Выберите правильный вариант ответа. Укажите ряд, в котором во всех словах пропущена буква С.а) бе…вкусица, ра..чёт, ра…творять;б) …жечь, ра…писаться, бе…ценный;в) и…жога, во…торжествовать,...
гагарин9
31.01.2020 10:13
У меня есть вопрос что означает, например: 1,0 3,0 5,3?...
dscirina
31.01.2020 10:13
Выберите верные варианты 1.Дождевые черви живут в почве богатой перегноем. 2.Дождевые черви являются гермафродитами. 3.Анальное отверстие дождевого червя расположено на 16...
Виктория1950
31.01.2020 10:13
Соедини газовый состав воздуха с процентным соотношением. азот кислород углекислый газ 21% ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.