var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
Все объекты на Рабочем столе можно разделить на 3 группы: ярлыки,файлы,папки.Сведения о файле, папке или ярлыке можно найти в пункте меню Пуск справка и поддержка.Окно-это прямоугольная область экрана, в которой выводится определенная информация: содержимое дисков, программы, создаваемые пользователем документы, запросы и сообщения Windows. Окна можно открывать (разворачивать), закрывать, сворачивать, перемещать, упорядочивать, менять размеры . Открытое окно может занимать целый экран или его часть.Управлять размерами окна можно плавно с мыши и автоматически - с
Заходим в повер поинт
Перед нами выскакивает презентация (первый лист)
Делаем нужную нам презентацию
(титульный лист, тема и тд)
Далее, чтобы создать НОВЫЙ СЛАЙД нужно :
Либо перейти на вкладку «создать» или «вставить» и «новый слайд»
Ну а далее все по щёлчку можно менять, или таймер ставить чтобы они матались