Подготовьте презентацию из 5 слайдов на тему «Объекты мультимедиа». Предусмотреть наличие титульного слайда, слайда с содержанием, слайда со списком используемой литературы (не менее 5 пунктов). Добавить анимацию для смены слайдов и для объектов на слайдах. Для выполнения задания можно использовать MS Power Point. Допускается использование Keynote для Apple; Impress. На проверку нужно прислат

конкретно в каких стейтментах была ошибка , я не смог разобраться , но фактически у тебя

1.был не правильный вывод (m[1])

2.неправильная итерация по циклу с переменной 'с'

крч легче было просто переделать

var

c, n, i, j: integer;

m: array[1..1000] of integer;

begin

Readln(n);

for i := 1 to n do

begin

m[i] := i;

Write(m[i], ' ');

end;

writeln;

while n >= 1 do

begin

if c+2 < n then c := c + 3 else c := n - c + 3;

for i:=c to n do m[c]:=m[c+1];

n := n - 1;

end;

writeln(m[c]);

end.

№1

pers1 = 'китенок'

print(pers1)

pers2 = 'динозавр Митя'

print(pers2)

pers3 = 'Леонид Васильевич'

print(pers3)

act1 = 'плыл по морю'

print(act1)

act2 = 'рыбачил'

print(act2)

act3 = 'решал задачу'

print(act3)

def1 = 'в кузове грузовика'

print(def1)

def2 = 'в красных башмаках'

print(def2)

def3 = 'в пурпурном пиджаке'

print(def3)

print(pers2, act1, def3)

print(pers1, act2, def2)

print(pers3, act2, def1)

print(pers2, act3, def2)

№2

print('|-|--|---||||||||||||||')

№3

print(2, 3, 5, 7)

print(11, 13, 17, 19)

print(23, 29, 31, 37)

print(41, 43, 47)

№4

print('print("Привет, мир!")')