Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
mishajordan213
06.07.2020 06:19 •
Информатика
70б. pascal. каждый отрицательный элемент массива f(21) возвести в квадрат и вывести исходный и изменённый массивы.
Показать ответ
Ответ:
VadimMin
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 оценок)
Популярные вопросы: Информатика
MagicalBiology
08.09.2021 02:41
Заполни пропуски в таблице в степени число 2...
Polinochka570
19.06.2021 22:45
2. Сравните двоичные числа.а) 1 101 + 11 и 1111 + 10:B) 11101 - 11 и 111 + 11:д) 1 101.1 и 1011 : 1011:б) 1001,11 + 101,01 и 1 101,01 - 101, 11:г) 1110,01 + 101...
lidochka4
25.03.2020 08:33
Водном из изданий первого тома а. дюма «три мушкетёра» 512 страниц. какой объём памяти (в мбайт) заняла бы эта книга, если бы александр дюма набирал её на компьютере...
тик12345
25.03.2020 08:33
1. прибавь 2 2. умножь на 3 выполняя первую из них, калькулятор прибавляет к числу на экране 2, а выполняя вторую, умножает его на 3. (например, программа 21211...
oksa7610
27.08.2021 13:51
Среди приведенных ниже 3 чисел записанных в различных системах счисления Найдите минимальное и запишите его в ответе в десятичной системе счисления в ответе Запишите...
lolshik009
28.05.2022 05:12
ЧЕНЬ Сколько байт памяти занимает цветное изображение шириной 100 точек и высотой 3000 точек в цветовой модели RGB? ответ: байт...
alyonkakingAlyonka76
31.05.2023 04:16
Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 1000 точек и высотой 90 точек? ответ: бит...
dimysisdimysis
07.11.2020 02:07
Составьте предложения со словосочетаниями: не смыкая глаз не переводя дыхания не мудрствуя лукаво не покладая рук не помня себя не солоно хлебавши заранее...
Ivanych086
07.11.2020 02:07
Лексический разбор слова реорганизация уже ночь...
taric2004
07.11.2020 02:07
Выполни словообразовательный разбор следующих слов избушка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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