Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ilyauhdhbtxskr
12.04.2020 02:22 •
Информатика
70б. pascal. каждый отрицательный элемент массива f(21) возвести в квадрат и вывести исходный и изменённый массивы.
Показать ответ
Ответ:
Slash213
23.09.2020 01:51
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(21,-50,50); a.Println;
for var i:=0 to 20 do
if a[i]<0 then a[i]:=sqr(a[i]);
a.Println
end.
Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729
0,0
(0 оценок)
Популярные вопросы: Информатика
Лиза200111111
07.10.2020 23:45
00011100 00111000 01110000 11100000 01110000 00111000 00011100 00001110 00000111 00001110 00011100 00111000 сколько ячеек памяти займет первая строка кода? сколько...
ruslanchik1999
13.08.2021 18:40
Составить программу для того что бы выводить 5 символов подряд надо...
SviYm
13.08.2021 18:40
Какой цвет модели rgb будет получен при следующих параметрах 8-ми цветной палитры? красный 0 зеленый 1 синий 1 варианты ответов: красный, синий, голубой зеленый....
MaksSeemo
04.04.2023 21:39
Рассчитайте объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 1024 x 768 и количеством отображаемых...
samo345
06.04.2022 11:00
Вставьте нужные слова Вместо МНОГОТОЧИЙ: Поиск, сбор, хранение, обработка информациии программно-технические средства для этогоаналоговый называетсяМодуляторустройство...
efremchina99
22.01.2021 17:51
Кто напишет не по теме кину жалобу! 10 класс....
alikachara
06.12.2021 18:08
Суравнениями: 1)-4х-27х-18=0; 2)х^2-12х+29=0; 3)5х^2+х+1=0; 4)4х^2+х+4=0....
Никиланджело
06.12.2021 18:08
Прочитайте список событий (явлений, процессов) и напишите событие (явление, процесс), которое относится к древнему египту. захват власти цезарем, возникновения иудаизма,...
Ляпомогите
06.12.2021 18:08
Напишите сочинение на тему книга-наш друг и советчик...
ninapopova197
06.12.2021 18:08
Дать характеристику парижской комунны много : d...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(21,-50,50); a.Println;
for var i:=0 to 20 do
if a[i]<0 then a[i]:=sqr(a[i]);
a.Println
end.
Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729