Ниа15082006
10.09.2021 18:11

Вы еще не забыли, что среди студентов ижгту есть много умных ? особенно на кафедре по. и конечно же вы помните, что все активные и помимо учебы занимаются различной деятельностью. давайте рассмотрим среди них среднестатистического студента. у него постоянно много дел и чтобы ничего не забыть, среднестатистический студент решил составить расписание на n дней вперед.

все дела условно разделяются на важные и не важные. студент обя- зательно хочет составить расписание таким образом, чтобы на каждый день было запланировано как минимум одно важное дело. на каждый день может быть за- планировано любое количество дел. так как он любит числа, то каждому делу был присвоен свой индивидуальный номер, причем таким образом, что у всех важных дел номера оказались четными. ваша студенту составить расписание.

формат входных данных

в первой строке со стандартного устройства ввода через пробел вводятся два целых числа n и m (1 ≤ n, m ≤ 2 × 10 в пятой степени ) — количество дней и количество дел соответственно. в следующей строке вводятся m целых чисел — номера дел. числа положительные и не превосходят 2 × 10 в шестой степени .

формат выходных данных

если возможно составить расписание дел, удовлетворяющее условию, то следует вывести слово “possible” (без кавычек). далее нужно выдать на стандартный поток вывода это расписание. выводить нужно в следующем формате: “day q: w”, где q (1 ≤ q ≤ n) — номер дня (следует выводить по порядку), w (1 ≤ w ≤ m) — количество дел, запланированных на этот день. в следующей строке, через пробел, вывести номера этих дел. если возможных расписаний несколько — выводите любое. если же составить расписание, удовлетворяющее условию, невозможно, следует вывести “impossible” (без кавычек).

примеры

standard input standard output

3 7

2 8 3 16 5 12 1 possible

day 1: 2

2 3

day 2: 2 5 8

day 3: 3 1 12 16

3 5 1 10 12 7 5 impossible

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Вика7473
13.04.2022 04:26
1)
var a: array [1..40] of integer;
    i, s1, s2: integer;
begin
     for i := 1 to 40 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then
          begin
               s1 := s1 + a[i];
               inc(s2);
          end;
     end;
     writeln(s1 / s2);
end.

2)
var a: array [1..40] of integer;
    i, q: integer;
begin
     for i := 1 to 40 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (a[i] <= 10) then q := q + a[i];
     end;
     writeln(q);
end.

3)
var a: array [1..40] of integer;
    i, w: integer;
begin
     for i := 1 to 40 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (a[i] mod 3 = 0) then w := w + a[i];
     end;
     writeln(w);
end.
0,0(0 оценок)
Ответ:
samsianna2003
13.04.2022 04:26
A)
program a1;
uses crt;
var m:array[1..40]of integer;
i:byte;
a,ka:integer;
begin
clrscr;
a:=0;ka:=0;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 if m[i] mod 2<>0 then
 begin
 ka:=ka+1;
 a:=a+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Среднее арифметическое нечетных чисел=',a/ka);
end.
b)
program b1;
uses crt;
var m:array[1..40]of integer;
i:byte;
b:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
 if m[i]<=10 then b:=b+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Сумма чисел не превышающих 10=',b);
end.
в)
program v1;
uses crt;
var m:array[1..40]of integer;
i:byte;
c:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
if m[i] mod 3=0 then c:=c+m[i];
 end;
 end;
 for i:=1 to 40 do
 if i=1 then write('M[',m[i],',')
 else
 if i=40 then writeln(m[i],']')
 else
write(m[i],',');
writeln('Сумма чисел кратных 3 = ',c);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота