1. Информатика
  2. Подсчитать кол-во отрицательных

Подсчитать кол-во отрицательных чисел из 10 введенных с клавы (pascal abc.net)

matumaxim matumaxim    3   06.09.2019 09:20    0

Ответы
arinaplatonova1 arinaplatonova1  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Vitaly536218 Vitaly536218  12.11.2020 10:07
нужна программа на Pascal С клавиатуры вводятся натуральные числа, ввод заканчивается числом 0. Нужно вывести на экран эти числа в порядке возрастания....
water12 water12  12.11.2020 10:17
с заданием по информатике, заранее...
pro00losk pro00losk  12.11.2020 10:17
с информатикой. Оечнь нужно...
istamov9777 istamov9777  12.11.2020 10:17
Постройте таблицу истинности...
ladiaginairina ladiaginairina  25.06.2019 21:40
Цвет пикселя монитора определяется тремя составляющими: зеленой, синей и красной. под красную и синюю составляющие одного пикселя отвели по пять бит. сколько бит отвели под зеленую...
yujejal yujejal  05.10.2019 20:10
Пользователь вводит текст с клавиатуры со скоростью 90 знаков в минуту. какое количество информации будет содержать текст, который он набирал 15 минут (используется компьютерный...
milenohkaKiss6565 milenohkaKiss6565  05.10.2019 20:10
Дано трехзначное число.проверьте равна ли его первая цифра сумме квадратов второй и третьей...
rickharmon rickharmon  05.10.2019 20:10
Паскаль. в массиве b хранится информация о среднедневной температуре за каждый день июля, заданной случайным образом в диапазоне от 25 до 35. определить дату самого тёплого дня....
Crazy2daisy Crazy2daisy  05.10.2019 20:10
Ваня сидоров работая над проектом по создал следующие файлы : d: .bmp. d: \учёба\работа\основа.doc d: \учёба\работа\замечание.doc d: .doc d: .doc укажите полное имя папки, которая...
мажорчик2 мажорчик2  30.10.2020 08:55
В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет. Запрос Найдено страниц (в тысячах) Угол | Прямая 180 Угол 60 Угол & Прямая...

Популярные вопросы