Const n = 12;
var m :array [1..n] of integer; i, kol, sum :integer;
begin
randomize; for i:= 1 to n do m[i]:= random(100)-50; sum:= 0; kol:= 0; for i:= 1 to n do begin if m[i] = 0 then inc(kol); if m[i] < 1 then sum:= sum + m[i]; end; writeln('Количество нулевых элементов: ',kol); writeln('Сумма элементов, меньших 1: ',sum);
<span>end.</span>
Вид - показать или скрыть ленейка
В а - количество проходов по циклу (а=2; 2*2=4 - четырёхзначное число Х)
в b - сумма двух пар цифр числа Х (x mod 100 - выделение двух последних цифр из Х)
a=2 b=17
17-9=8 ответ max X=9800
Вариант 1
Вставка, фигуры, текст. Вставляем текст. Активируем фигуру. Переходим в Формат, жмём Направление текста. Вуаля.
Вариант 2
Создаём таблицу 1×1 . Пишем текст. Активируем эту таблицу. Переходи в Макет, жмём Направление текста. Вуаля. Потом ещё можно в Главной убрать все границы у таблицы, чтобы было прямо один в один как страница.
Вариант 3
Если задача просто распечатать текст по-другому, то можно сделать Разметка, Ориентация, Альбомная.