Большой, просторный, светлый дом.Ребят хороших много в нём.Красиво пишут и читают.Рисуют дети и считают. В этот день гурьбой весёлойДружно мы шагаем в школу. Каждый год школа дверь открывает.С теплотой всех детей принимает.Малыши - новосёлы вселяются.Знаешь ты, как они называются? Ученикам велит садиться.Затем вставать и расходиться.В школе многим он велит,Ведь звонит, звонит, звонит. Загадка про школу,про тот самый срок,Который ребятам Прозвонит звонок.
Стал теперь умней наш класс!Мы крючки и зонтикиСтали рисовать.Ты попробуй отгадать,Что же это за тетрадь? (Пропись)* * *Все рисунки вмиг сотрет,Если в ход она пойдет. (Стирательная резинка)* * *Пляшут Ира и Кирилл,Пляшут Таня, Даниил.Это просто танцы века! —В нашем классе... (дискотека)* * *В этом заведенииВсе перебывали.Двоечники, генииОтметки получали.Учились здесь артисты,Певцы, артиллеристы.Сюда хожу и я,И вы, мои друзья. (Школа)* * *Таблицу умноженияУчил я две недели.Скажу я без сомнения —Важнее нету дела!Ее запомнил на года!Хоть сколько будет лет,Я на любой пример всегдаДам правильный... (ответ)* * *Мы идем в медкабинет.Все боятся, а я — нет.Лица у ребят, как сливки, —Побледнели от... (прививки)* * *Для младших классов лишь одноОно — начальное... (звено)* * *Я болею, дома я,В школе все мои друзья.Дома быть мне непривычно,Врач мне выдал лист... (больничный)* * *Мы по улице ходилиИ о времени забыли.Дождь пошел. Стучит он гулко,Сорвана была... (прогулка)* * *Плох тот, ребята, ученик,Кто не ведет совсем дневникИ на уроках не бывает,А вместо школы в мяч играет.Скажите, как того назвать,Кто школу любит прогулять? (Прогульщик)* * *Все листочки скреплены,Не рассыплются они.Держит крепко, как прищепка,Металлическая... (скрепка)* * *Первая книга, что знанья дает,Ее первоклассник в портфеле несет.Всегда и повсюду, сегодня и встарьШкольнику очень нужен... (букварь)* * *
var a: array[1..n1, 1..m1] of integer; b: array[1..m1] of integer; i, j, m, n: integer;
begin Write('Введите через пробел число строк и столбцов массива: '); Readln(n, m); Randomize; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to m do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; Writeln('Сформированный массив'); for j := 1 to m do begin i := 1; while (i <= n) and (a[i, j] >= 0) do i := i + 1; if i <= n then b[j] := a[i, j] else b[j] := -99; Write(b[j]:4) end; Writeln end.
