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

Алиса решила отправить Бобу сообщение. Но сейчас идет урок информатики, и просто так передать Бобу записку с текстом нельзя. Поэтому Алиса решила скрыть свое сообщение в массиве целых положительных чисел и передать Бобу этот массив в надежде, что Боб сможет извлечь из этого массива ее сообщение. Каждое переданное Алисой число содержит в своем младшем байте ASCII-код некоторой буквы (большой или маленькой) английского алфавита. Напишите программу, которая Бобу прочитать сообщение Алисы.

В первой строке входных данных содержится единственное натуральное число N (1 ≤ N ≤ 1000) - количество чисел в переданном массиве.

Во второй строке входных данных содержаться N положительных целых чисел Ai, каждое из которых не превышает 109 и содержит в своем младшем байте ASCII-код некоторой буквы английского алфавита.

Выведите единственную строку, состоящую ровно из N букв, скрытых в переданном Алисой массиве.

Показать ответ
Ответ:
Сергей0013
Сергей0013
15.12.2020 12:21

Бегин

вар n:=ReadInteger('Количество хромосом/кол-во подбородков:');

врайтэлен там сам дальше.

 вар a:=MatrRandom(n,n,-99,99);

 a.Println(4); Врайтлн(n*4*'-');

вар типо кушать варишь b:=a.Rows.Select(row->row.Where(t->t.IsOdd).DefaultIfEmpty.Average)

   .Toаррай;

 b.Println;

энд типо конец.

Пример

Количество сам найдёшь/столбцов в матрице: около 5-20 там по месецам нужно смотреть.

*** Исходная попа (нужно сначало её помыть, потом начинать работу) ***

 40 -38  16 -70  26 50 21 43 1323 123  123

 87   7 -31  99  34 345 345 645 645 64 645

-34 -47 -33  32  56 456 4564 6 46 54 6456

 66  71  41   7  80 456 4564 6456 45  64

 55  42 -22   7  86 45645 4  456 45 64 46

0 40.5 -40 39.6666666666667 3112 312312 3123

Объяснение:

.

0,0(0 оценок)
Ответ:
ficusborislav
ficusborislav
15.12.2020 12:21

Глупый человек на ответе.

Сейчас всё объясню :

Нам нужно всего ввести в паскаль код:

program name

begin : a ('Число")

Random: False

True ; Fu

Writlen ; Ck

Del: U mother

N (1 ≤ N ≤ 1000)

end.

Объяснение:

В паскале всё  очень просто,порой просто,нужно включить логику.

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