Ответы на вопрос:
Var a: array[1..100] of integer; i,c,n: integer; begin readln(n); for i: =1 to n do begin read(a[i]); write(a[i],' '); if a[i]< 0 then c: =c+1; end; writeln('кол-во отриц.=',c); end.
Популярно: Информатика
-
Определите значение переменной с после выполнения следующего фрагмента программы:...
cherepd200528.10.2022 05:29 -
Нужно написать любой текст и посчитать его емкость в битах(код 8 и universal...
valeria20456706.06.2023 17:54 -
Пользователь работал с каталогом c: \2011\избранное\видео. он поднялся на...
MashaJummy04.05.2021 08:26 -
Составьте программу вводится n число участников викторины. затем для каждого...
140605200522.05.2023 13:02 -
С30 : имеется жесткий диск объемом 160 гб, сколько книг поместится если, каждая...
МарияЛобачева23.04.2021 00:37 -
Это паскаль умоляю! Дан одномерный массив. Запиши верный ответ. −19 21 0 −4...
alenushkabelya15.10.2022 03:08 -
Среди приведённых ниже трёх чисел, записанных в различных системах счисления,...
nikarh17.01.2022 15:50 -
Решить ,! за рание огромное ) повар плодокомбината борковский был уволен с...
Daria231609.01.2022 10:03 -
Write your favourite room (50-60words) в моем случае это кухня)...
Fartyw31.03.2020 13:53 -
Назови два три качества профессии кинорепартёр...
shayukalena19.08.2022 09:57