Предложите какой нибудь алгоритм выбора макета для слайда этот алгоритм будет линейным

Каждая тема PowerPoint содержит набор макетов слайдов, предопределяющих размещение содержимого ваших слайдов. Поле "Заполнитель" предоставляет место для вставки содержимого. При этом почти не требуется (или совсем не требуется) форматирование и перемещение вручную. Выбирайте макет в меню PowerPoint и вставляйте свой текст и рисунки.

Для размещения содержимого слайда можно использовать один из макетов, чтобы сделать его понятным и удобочитаемым.

Выберите слайд, для которого вы хотите изменить макет.

На вкладке Главная нажмите кнопку Макет.

Выберите нужный макет.

Макеты содержат заполнители для текста, видеороликов, изображений, диаграмм, фигур, элементов коллекции картинок, фона и других объектов. Макеты также содержат параметры форматирования этих объектов, такие как цвета темы, шрифты и эффекты.

Примечание: Если вас не устраивают внесенные изменения, на вкладке Главная нажмите кнопку Сбросить, чтобы вернуться к исходному макету. Кнопка Сбросить не удаляет добавленное содержимое.

Изменение ориентации слайдов

Инструкции по переключению между книжной и альбомной ориентациями содержатся в отдельной справочной статье:

Альбомная ориентация слайда альбомная

Книжная ориентация слайда книжная

Для PowerPoint 2013 или более новой версии см. статью Изменение ориентации.

Для PowerPoint 2010 или 2007 см. статью Изменение ориентации.

Var a: array[1..1000] of real; i,n,ko,kp: integer; begin write('введите количество элементов массива n= '); readln(n); for i: =1 to n   do read (a[i]); for i: =1 to n   do write(a[i],' '); ko: =0; kp: =0; for i: =1 to n do if a[i]> 0 then kp: =kp+1 else if a[i]< 0 then ko: =ko+1; if ko> kp then writeln ('отрицательных элементов больше чем положительных') else if ko< kp then writeln ('положительных  элементов больше чем отрицательных') else writeln ('количество положительных и отрицательных элементов равны'); end.