Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Nastyxas
05.09.2022 08:58 •
Информатика
Из элементов массива а сформировать элементы массива в по правилу: b[i]=a[1]+a[2]++a[i]. напишите !
Показать ответ
Ответ:
Danilalmaz
02.10.2020 19:05
Var
A,B:array[1..13] of integer;
i,j:integer;
Begin
Write('A: ');
For i:= 1 to 13 do
Begin
A[i]:=random(13)+1;
Write(A[i],' ')
End;
WriteLn;
Write('B: ');
For j:= 1 to 13 do
Begin
For i:= 1 to j do
B[j]:=B[j]+A[i];
Write(B[j],' ')
End
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Aznabaev09
07.10.2020 18:20
Ввод формулы в MS Excel начинается со знака? знака равенства пробел Озависит от вводимых данных...
Princess358ghhh
03.11.2021 01:33
1) Используя стандартную программу БЛОКНОТ, определить, какая фраза в кодировке Windows задана последовательностью числовых кодов и продолжить код. Запустить БЛОКНОТ. С дополнительной...
Stupidpeoplenamber1
09.08.2021 22:15
Сообщение занимает 5 страниц по 30 строк, состоящих из 60 символов. Каков будет информационный объем данного сообщения, закодированного 8-битным кодом Windows? Решение НЕ...
dany20skribka
15.06.2022 07:41
Движение вдоль линии. Пусть робот перемещается попеременно, то на темную, то на светлую область. Движение должно выполняться поочередно то одним, то другим колесом. Используйте...
89670198045
08.01.2020 10:53
В каких случаях нельзя использовать чужие работы...
raisa3yusif
23.09.2020 04:44
По данным Статистического комитета Республики Казахстан, в 2018 году в нашей стране пользователи сети Интернет в возрасте от 6 до 74 лет составляли 79%. А в 2017 году этот...
Гуманитарий777
14.06.2021 16:43
Операторлар блогына командалар нешеге болынеды...
vladdobryj071
03.05.2022 11:38
3. Мұғалім оқушыларға 32 таңбадан тұратын мәтінді компьютерде теру тапсырмасын берді. Оқушы мәтінді қуаты 16 таңбадан тұратын алфавитпен терді, ал Болат қуаты 256 таңба болатын...
kataderabinaКатюшка
13.06.2021 16:01
Составить программу для графического учебного исполнителя для написания слова ПОТ...
777kicigina
03.04.2022 02:01
2. Говорят, что мало - кто из современников Эйнштейна понимали его теорию. Макс Планк, утешая Эйнштейна, говорил: Новые теории никогда не принимаются. Они или опровергаются,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,B:array[1..13] of integer;
i,j:integer;
Begin
Write('A: ');
For i:= 1 to 13 do
Begin
A[i]:=random(13)+1;
Write(A[i],' ')
End;
WriteLn;
Write('B: ');
For j:= 1 to 13 do
Begin
For i:= 1 to j do
B[j]:=B[j]+A[i];
Write(B[j],' ')
End
End.