Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Татьяна72828
25.06.2022 02:00 •
Информатика
В-2 напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все положительные элементы заменяет их квадратами, а остальные заменяет 1
Показать ответ
Ответ:
karinapolushin
25.09.2020 09:25
For i := 1 to 10 do
if a[i] > 0 then
a[i] := a[i] * a[i]
else a[i] := 1;
0,0
(0 оценок)
Популярные вопросы: Информатика
КотБарис1
06.01.2022 12:48
Объем сообщения содержащего 2048 символов составил 1/512 часть мегабайта каков размер алфавита с которого записано сообщение?...
skeych
21.12.2022 17:02
7. Найти максимальный элемент и его индексы в матрице А размерности N*M. ( Нужна Блок - схема )...
ivanovasasha2
05.10.2021 04:05
Записать выражение на языке паскаля (1+1/х^2)-12х^2у...
ксюшка485456
05.10.2021 04:05
Два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 32 символа, второй- мощностью 64 символа. во сколько раз различаются информационные...
аноним1234567891011
05.10.2021 04:05
Информационный объем текста, подготовленного с компьютера, равен 3,5 кб. сколько символов содержит этот текст...
Shavelko
05.10.2021 04:05
Что такое информатика? что такое информация? что такое информационные технологии?...
Арте20
02.03.2023 16:50
Информационный объём электронной книги равен 132180 бит. Найди сколько символов содержится в алфавите, с которого написана эта книга, если в ней 33045 символов?...
Romlik
15.11.2022 23:16
Нарисуй куб, используя фигуру четырехугольник. Выдели и скопируй его, расположи копии, как показано на рисунке. Сколько кубиков у тебя получилось...
natab02
14.03.2023 04:59
2. составьте программу, определяющую, на какую букву начинается третье слово в предложении. 3*. составьте программу, определяющую длину последнего слова в предложении. желателно...
Gucci99
11.10.2022 07:21
Что послужило основой для создания кыргызского национального государства?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if a[i] > 0 then
a[i] := a[i] * a[i]
else a[i] := 1;