Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Mашуня1111
16.02.2023 09:40 •
Информатика
Составить программу, которая меняет элементы массива на противоположные по знаку, массив заполняется с клавиатуры. решить на паскале.
Показать ответ
Ответ:
мопс22
03.10.2020 11:43
PascalABC
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
djastin05
03.03.2020 01:57
Составить программу на языке c++! дано натуральное число n. выведите слово yes, если число n является точной степенью двойки, или слово no в противном случае. операцией...
8800553535Qwerty
28.11.2021 11:49
Для кодирования букв а,б,в,г. решили использовать двухзорядные последовательные двоичние числа (от 00 до 11,соответсвенно).если так закодировать последовательность симвалов...
kseniarevda7
28.11.2021 11:49
Vba microsoft word составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен....
Павел22032006
13.02.2021 00:25
Растровая картинка имеет размер 256х256 точек и занимает 192кб. определите глубину цвета в битах...
янасеребрянская3012
13.02.2021 00:25
Перевести число 321f16(в шестнацатиричной) в 10-ю систему счисления...
Vika15077
11.11.2020 12:07
Ккакому классу сети относился бы ip-адрес 130.131.132.133 при классовой адресации (действовала до 1993 года)? а) a б) b в) c г) d...
SkokivaAlina
01.09.2020 06:18
Рассмотрите открывающиеся веб-страницы, определите назначение сайта, определите государство, в котором сделан этот сайт. buyingbusinesstravel.com...
лалалалад1
14.02.2022 13:51
Ученик набирает сочинение по на компьютере, используя кодировку koi-8. определите какой объём памяти займёт следующая фраза: молекулы состоят из атомов! каждый символ в...
Vladislava111111111
05.05.2021 03:35
Решить на языке с++, каждую строку кода желательно закомментировать, чтобы я понял и смог объяснить как я решил преподу). дана последовательность из n элементов, заменить...
Taylis69
05.05.2021 03:35
Составить программу построения графика зависимости y=корень из x на отрезке [0,80]. установить начало системы координат в точке (10,300). задать множитель равный k=10. оси...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.