Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Morikachan46
28.01.2021 10:40 •
Информатика
Написать программу которая сформирует массив следующим образом: a[1]=-1 a[2]=1 a[3]=-2 a[4]=2 a[5]=-3 a[6]=3 a[7]=-4
Показать ответ
Ответ:
nataly163
25.08.2020 01:24
Var a:array[1..7] of integer;
ar,b,c:integer;
begin;
ar:=1;
b:=1;
for c:=1 to 7 do
begin;
ar:=-1*ar;
a[c]:=ar;
writeln(a[c]);
if ar>0 then
ar+=1;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sisake
15.03.2022 16:16
Расставь единицы измерения информации в порядке убывания. 13 гб 14.32 мб 15 байт 9 бит 23.8 кб...
canimzoo
27.05.2020 12:01
Найти третью цифру числа или сообщить, что её нет. C#...
roman81rudi
03.08.2022 23:39
Рассчитать общее сопротивление электрической цепи при параллельном соединении резисторов. Значения сопротивлений сохранить в массив. Напишите программу...
Dasha16032005
27.03.2020 21:20
Надо начертить блоксхему. Программа уже написана. ...
lemyana2017
09.04.2020 03:20
Задание:Укажите результат выполнения сложного условия (ZZ) при X:=5; Y:=15; Z:=10. *Варианты ответа:Истина,ложь,не имеет смысла...
serialoman3
05.03.2021 06:16
Заполнить пропуски цифрами: 1.заполнить пропуски цифрами: 8 кбайт = байт = бит кбайт = байт = 24576 бит кбайт = байт = 215 бит гбайт = 2560 мбайт = кбайт...
eruder
20.06.2021 07:54
...ночная птица, на память приходят степные легенды, рассказы встречных и все то, что сам сумел увидеть и постичь душою. - что не вместилось на фото Найдите все сложноподчиненные...
torivova2004
16.01.2021 22:30
Відрізок довжиною 17 см не перетинає площину . Кінці відрізка віддалені від площини на 4 см і 12 см . Знайти довжину проекції відрізка на площину...
arinakirkot
26.03.2020 11:26
сделать упражнение 7c и смотреть на рисунок 7a.Ниже фото....
vanyushkachushka79
14.04.2023 05:54
Определить фенотип и генотип потомства ,полученного при скрещивания следующей пары собак: AsAyEe x AsAyEe...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
ar,b,c:integer;
begin;
ar:=1;
b:=1;
for c:=1 to 7 do
begin;
ar:=-1*ar;
a[c]:=ar;
writeln(a[c]);
if ar>0 then
ar+=1;
end;
end.