Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
badoo40
07.12.2021 20:46 •
Информатика
По программированию pascal заменить к-й элемент одномерного массива на количество нулевых элементов и сделать блок схему
Показать ответ
Ответ:
kasatka0556
07.10.2020 16:36
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,0,10); mas.Println;
var k:=Readinteger('Введите индекс элемента который находится в диапазоне 0..20:->');
var a:=mas.Where(t->t=0).Count; Writeln('Количество 0=',a); mas[k]:=a;
mas.Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
www152
14.06.2021 13:53
Вводится строка из двух слов, разделенных пробелом. Составьте программу, позволяющую вставить слово t после первого слова строки s. Строку s и слово t ввести с клавиатуры....
vinerxasanzyan
26.12.2022 07:37
Задание по информатике 8класс основные логические операции....
rokivich
30.06.2020 16:42
Приведите примеры на слова папка-файл каталог...
anton20063
18.12.2020 17:34
Нужна с кодом pascal. if k11 = k12 then begin if k12 = k13 then begin if k12 = х then goto win1 else goto win2; end; end; else goto showp1; выдает ошибку на последнем else...
asdfghjkl12347
14.04.2020 12:02
с дз, мне нужен чёткий ответ...
brankjs
06.11.2021 01:04
Запешите следующие числа в естественном виде:6301E+2...
20183
01.02.2021 09:02
Дайте развернутые ответы на вопросы: Перечислите и опишите основные виды информационных моделей. Приведите по одному примеру каждой из них. ( ) Где применяются информационные...
Дашуля110506
22.11.2022 10:41
. Нужно сделать 1 вариант за 10 минут...
мугамбе
20.02.2020 16:05
Информатика PytonПодати цифру 3 в степін N ...
zlu4ka11
25.07.2020 21:04
Информатика PytonПодати цифру 3 в степін N ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,0,10); mas.Println;
var k:=Readinteger('Введите индекс элемента который находится в диапазоне 0..20:->');
var a:=mas.Where(t->t=0).Count; Writeln('Количество 0=',a); mas[k]:=a;
mas.Println;
end.