Собирается-журналист опрашивает людей для статьи обрабатывается-ученик решает задачу упрощается-учитель объясняет материал создается-все тот же журналист придумывает статью запоминается-парнеь запоминает номер телефона девушки измеряется-программист рассчитывает сколько бит займет программа копируется-ученик списывает у одноклассника передается-две девушки обмениваются новостями принимается-ученики слушают учителя на уроке разрушается-придуманная выше указанным журналистом статья опровергается... делится на части-человек разбирает сообщение в котором пропущены пробелы ищется-человек ищет материал для доклада в интернете
Const N1 = 5; N2 = 5; var a: array [0..N1, 0..N2] of integer; b: array [0..N1*N2] of integer; i, j, n: integer; begin for i:=0 to N1 do {Заполнение массивы случайными числами} for j := 0 to N2 do a[i, j] := random(9999); for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива} for j := 0 to N2 do if (a[i, j] mod 2 = 0) then begin b[n] := a[i, j]; n := n + 1; end; for i:=0 to n do {Вывод полученных чисел} writeln(b[i]); end.
дай почту скину я проходил это у меня было все правильно