Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Gok3004
28.02.2023 07:12 •
Информатика
Задан массив k(n). и отрицательные элементы массива заменить на их квадраты. вывести их индексы и новые значения.
Показать ответ
Ответ:
куся26
03.10.2020 17:15
Const
i=10;
var k:array[1..i] of integer;
n:integer;
begin
writeln('Введите элементы массива');
for n:=1 to i do begin
read(k[n]);
if k[n]<0 then k[n]:=sqr(k[n]);
end;
for n:=1 to i do write(k[n], ' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rrv1803
28.01.2020 21:33
Составьте программу с условием if. ввести а и в. если аменьшев в квадрате, то x=a*под корнем в. иначе y=acosb. вывести на экран либо x, либо y 10...
nastya788rf
24.01.2020 09:03
Составьте программу с условием if. ввести а и в. если авывести на экран либо x,либо y 10...
Infasotka41
14.01.2023 07:19
Дана действительная матрица размера n на m элементов, найти номера строк матрицы, где все элементы различны...
Оленька090
07.11.2022 15:41
не обмана отрик керек емес...
orxanalizade894
03.10.2021 05:55
Составьте программы на паскале для решения задачи 8(Пользуясь ограничениями: в арифметических выражениях можно использовать только операции сложения, вычитания,...
sidikreal
03.04.2022 12:44
При упорядочивании информации в хронологической последовательности происходит … обработка, связанная с изменением формы информации, но не изменяющая её содержания...
232привет
07.05.2023 02:15
А1 В какой системе счисления может быть записано число 546? а) в четверичной; б) в шестиричной; в) в пятеричной; г) ни в одной из перечисленных. А2 Расположите числа...
shamsutdinovaa3
23.07.2021 09:48
1. Дать определение науки логики. 2. Определите тип высказывания: a) Усы имеют некоторые звери; b) Все роботы – машины; c) В високосном году 366 дней. 3. Определите...
котик009
21.09.2022 02:05
Количество информации объёмом 36000 байт передавалось по каналу связи в течении 1 минуты. Какова при этом была скорость передачи? (ответ выразить в бит/с)...
Badilya1
18.08.2021 09:56
Виберіть, хто може бути виконавцем команд? Людина Тварина Машина...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i=10;
var k:array[1..i] of integer;
n:integer;
begin
writeln('Введите элементы массива');
for n:=1 to i do begin
read(k[n]);
if k[n]<0 then k[n]:=sqr(k[n]);
end;
for n:=1 to i do write(k[n], ' ');
end.