В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
polcha2002
polcha2002
03.03.2021 23:54 •  Информатика

Заполните массив согласно условию: если индекс элемента массива (i) нечетный, то значение элемента должно находится по формуле i*2+1, а если четный, то значение элемента равно 1. вывести массив на экранах. сделать в паскале. информатика, 9 класс. заранее .

Показать ответ
Ответ:
TanyaCat225
TanyaCat225
02.09.2020 13:48
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество элементов в массиве:');

 var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);

 a.Println

end.

Количество элементов в массиве: 133 1 7 1 11 1 15 1 19 1 23 1 27
0,0(0 оценок)
Ответ:
Анечка12311
Анечка12311
02.09.2020 13:48

var a:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do  

if i mod 2 <> 0 then a[i]:=i*2+1 else a[i]:=1;

writeln('Mассив: ',a);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота