Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
marinatroshina
31.07.2022 11:13 •
Информатика
Дан двумерный массив целых чисел 5x5. заменить числа меньше 7 их квадратами. паскаль
Ответ:
ВикторикаРоэн
08.10.2020 21:00
PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=5;
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-30,99);
a.Println(4); Writeln(4*n*'-');
a.Transform(t->t<7?t*t:t);
Writeln('*** Полученный массив ***'); a.Println(4)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
умненькийкотенок
11.10.2022 12:48
Як називається СУБД пакету Microsoft Office? а)Excel б)Access в)Word г)FoxPro...
nova4ka
08.12.2020 16:04
Выбери из списка устройство, которое не является сенсорным устройством-манипулятором: сенсорный экран графический планшет тачпад трекбол...
vilortnt
13.03.2020 03:33
Переведите в байты: 15Тбайт, 256Мбайт, 2500Кбайт, 7Гбайт по информатике...
cemikhadam
05.12.2022 15:46
Решить по информатике. задан массив случайным образом.преобразовать массив: отрицательные элементы, кратные 7, заменить модулем, нулевые элементы заменить числом n(размер массива),...
Котоман228
05.12.2022 15:46
Найти минимальный элемент массива х(1..10) и максимальный элемент массива.поменять их местами и вывод результирующего массива на экран...
винишко12
10.07.2020 05:05
Расположите в порядке возрастания единицы измерения информации. 8 байт 20 кбайт 0,5 гбайт 2 мбайт 72 бит...
musaevakhadizh
02.08.2021 09:45
Определите и запишите в тетради видыинформации...
aleks1yus
17.03.2021 07:13
Сколько байтов весит моя шапка ...
fkireeva
02.12.2020 15:07
Гимнастикависы, упоры, стойки...
NatsuSalamandor
07.04.2020 08:28
40 . 1.які причини подібності й відмінності між мейозом та мітозом? 2.який процес забезпечує ріст організмів?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var n:=5;
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-30,99);
a.Println(4); Writeln(4*n*'-');
a.Transform(t->t<7?t*t:t);
Writeln('*** Полученный массив ***'); a.Println(4)
end.