Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Маргаритта357
04.08.2019 18:10 •
Информатика
Написать программу, которая вводит с клавиатуры одномерный массив из пяти целых чисел и выводит количество ненулевых элементов
Показать ответ
Ответ:
Ksu2k17
14.08.2020 08:49
Program prog;
Uses crt;
var a: array [1..5] of integer;
i,k: integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]<>0) then
inc(k);
end;
writeln;
write('k = ', k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kojjd
19.10.2020 14:12
Что больше 12,5 мбайит или 2.621.440 байт...
Backlajan89
19.10.2020 14:12
Запишите число 13579 в развернутом виде начиная со старшего разряда...
genatbukin
19.10.2020 14:12
На рисунке – схема дорог, связывающих города A, B, C, D, E, F, G и H. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных...
tyranball
21.06.2019 02:40
Sos рассчитайте объем видеопамяти необходимой для хранения графического изображения занимающего весь экран монитора с разрешением 640х480 точек и количество отображаемых цветов равным...
cherrychampagne
21.06.2019 02:40
Студент лентяев, встретив в конце зачетной недели своих товарищей по группе, спросил их о том, какие экзамены и в какой очередности им придется сдавать? ре бята решили подшутить...
vasilyeva08079oz7ptx
22.12.2020 22:40
В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» – символ «&». В таблице приведены...
кира674
22.12.2020 22:40
ОТВЕТИТЬ НА ВОПРОС , НУЖЕН ПРОГРАММИСТ ПО C# Console.Write(i * j + \t ); что такое \t Console.Write(i * j + \t ); что такое \t Console.Write(i * j + \t ); что такое \t Console.Write(i...
elenanovikova1972
22.12.2020 22:40
ОЧЕНЬ НАДО И ЛУЧШИЙ ОТВЕТ...
Charafoxcoteyca34
22.12.2020 22:40
Перевести в шестинадцатиричную систему счисления. И выполнить сложение и умножение двоичных чисел...
Данек44
22.12.2020 22:41
20:Офсонорд програм, Контрольні питання та напранн1. До системних програм відносяться: а) операційні системи:в) драйвери; д) текстові редактори.2. Операційна система призначена для:.dll...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
Uses crt;
var a: array [1..5] of integer;
i,k: integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]<>0) then
inc(k);
end;
writeln;
write('k = ', k);
end.