tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить количество чисел больших
Определить количество чисел больших 0 среди: а1, (паскаль)
МариКэт1
1 04.07.2019 04:40
0
Ответы
иоапгрдгоп
27.07.2020 23:21
Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv');
for i:= 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then
inc(k);
writeln('kolicestwo =',k);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nOMOshHuK2
16.11.2020 08:19
Рассказ состоит из 1 страницы, страница состоит из 20 строк, в каждой строке -10 символов. Данный рассказ записан буквами 32-символьного алфавита. Каков объем информации...
Ник13743803
16.11.2020 08:19
Упростите это логическое выражение...
khydyrov1404
16.11.2020 08:18
Какие инструменты в SketchUp ты знаешь? Опиши их....
Diana20006100500
15.03.2021 11:02
Последовательность допустимых символов, распознаваемые компилятором языка a)Оператор b) Лексема c)Алфавит d)Программа e)Идентификатор...
юлия19844
15.03.2021 11:03
Много балов на посмотрите...
zybi
12.07.2019 01:20
Увас есть три пользователя: виталий, андрей и павел, которые не дружат друг с другом. известно, что у виталия и андрея 77 общих друзей, у андрея и павла 81 общих друзей,...
JONNYDAPP
12.07.2019 01:10
Характеристика сферы использования информации. напишите...
karinaklinaeva
12.07.2019 01:10
Выполнить в pascal вы служите в банке. к вам приходит клиент, который хочет вложить некоторую сумму (в рублях). и клиент просит вас посчитать, через сколько лет и месяцев...
zombdanidani
12.07.2019 01:10
Как нарисовать за крашенный серым цветом эллипс без контура...
igoryk2002
12.07.2019 01:00
Дан текст из 400 символов. известно, что символы берутся из таблицы размером 32 × 64, в которой все ячейки заполнены разными символами. определите информационный объём...
Популярные вопросы
Отряд приматы как наиболее высокообразованные животные...
3
Прочитай.земени выделенное слово другим более точно понятие. невдалеке...
3
14см7мм÷7 2ц68кг÷4 6см6мм×2 2ц5кг×3...
3
Какую массу соли нужно растворить в 160г воды,для получения 20% раствора....
1
Вкаких словах больше букв чем звуков ,местный,карусель,метель ,чудесный,солнце,якорь,ветер,считать...
2
ответить на вопрос по ! ❗ 27 за правильный ответ❗ , ❗ желательно в течение...
3
Нужно составить предложение со словом царь колокол...
1
Написать сочинение рассуждение по прочитаному м.королева говорим по-...
1
69. распределите формы рельефа по мере увеличения их высоты над уровнем...
1
Вклассе 20% учащихся-отличники. сколько учащихся в классе, если отличников...
2
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv');
for i:= 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then
inc(k);
writeln('kolicestwo =',k);
readln;
end.