Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Fosa1
24.09.2022 15:21 •
Информатика
Как составить постановку, алгоритм и в pascale программу подсчитывающую количество положительных элементов массива w из 9 чисел. значения элементов массива ввести с клавиатуры. только можно поподробней)
Показать ответ
Ответ:
Vil67
13.07.2020 22:20
Var
W:Array[1..9] of Integer;
i,k:Integer;
Begin
for i:=1 to 9 do
Read(W[i]);
for i:=1 to 9 do
if (W[i]>0) then k:=k+1;
Writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
betmenduma
27.01.2021 21:45
1)сообщение объёмом 5 кбайт передаётся со скоростью 256 бит/сек. сколько времени потребуется для передачи данного сообщения? 2)сколько символов текста можно передать за 5 секунд,...
chudaevavera29
06.09.2020 08:23
Одинаковые буквы обозначают одинаковые цифры.реши примеры.бра+бар=раб ток-кот=кто...
komissar1809
09.07.2021 17:41
Напишите на паскаль. 1. вывести все четные числа от 0 до n (n вводится с клавиатуры)...
Andreyvko1
19.04.2020 13:24
Придумайте свой алгоритм обмена значениями числовых переменных а и в...
vramazanova4
11.05.2022 16:17
Вмассиве записаны оценки по информатике 22 учеников класса. определить кол-во учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих...
АннаПетух
11.05.2022 16:17
Напишите программу пересчёта расстояния их километров в вёрсты (1 верст = 1066,8 м). для паскаль abc...
fgdh1waffeaf
11.05.2022 16:17
Ввиде числовых данных могут быть представлены 7 величин пять из них известны.вес,рост,сила,цена,расстояние.какие еще две величины....
Куска
11.08.2022 13:19
1. на двухцветном светофоре горит красный цвет. какой объем информации несет сообщение о том, что загорится зеленый? 2. необходимо отгадать слово, состоящее из 4 букв и записанное...
айка2108
26.07.2022 23:26
Составить блок-схему и программу определяющую делится ли первое число на второе. (использовать команду mod и div с формулой a: =b mod c)...
katyakiseleva3
26.07.2022 23:26
Отгадай,какое слово зашифровано.подсказка: х меняется на ф. хпупбмювпн...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
W:Array[1..9] of Integer;
i,k:Integer;
Begin
for i:=1 to 9 do
Read(W[i]);
for i:=1 to 9 do
if (W[i]>0) then k:=k+1;
Writeln(k);
end.