1. слайдтарды сұрыптау режимі қандай мүмкіндік береді? 2. презентацияны көрсетуді қай команданың көмегімен орындауға болады? 3. жаңа слайдты қай команданың көмегімен құруға болады? 4.презентацияның кез келген компонентін баспаға шығару үшін қай команданы орындаймыз? 5. слайдта қандай обьектілер орналастыруға болады? 6. ms power point бағдарламасы үлгітүрдің қандай типтерін ұсынады? 8. ms power point бағдарламасында презентация құрудың қандай тәсілі бар? (қате жауабын көрсет) а) автомазмұн шебері, презентация шаблоны арқылы; ә) бос презентация арқылы; б) программалық тілдер жазу арқылы. 9. ms power point бағдарламасында құжат бейнелеуінің қандай режимдері бар? 10. ms power point бағдарламасын іске қосу жолы:

Var
    A: array [1..100] of Integer;
    N, i, j, k: Integer;

begin
    Write('Количество элементов массива: ');
    ReadLn(N);
    k := 0;
    
    for i := 1 To N Do
    begin
        Write('A[', I, '] = ');
        ReadLn(A[i]);
        {A[i] := Random(100) - 50;
        write(A[i], ' ');}
        if A[i] < 0 then k := i;
    end;
    writeln;
    
    {фильтр, если нет отрицательных}
    if k = 0 then begin
        write('Отрицательных элементов нет');
        halt;
    end;
    
    writeln('Удаление отрицательных элементов');
    k := 1;
    while (n > 0) and (k <= n) do
    begin
        if A[k] < 0 then begin
            for i := k to n - 1 do
                A[i] := A[i + 1];
            n := n - 1;
        end
        else k := k + 1;
    end;
    
    for i := 1 To N Do
        write(A[i], ' ');
end.

а вообще правильнее создать еще один массив и переписать туда нужные элементы - куда меньше операций, циклов и затрат памяти. Массив не предназначен для "удаления" элементов в нем

Type
    LinMass = array [1..1000] of Integer;

var
    A: LinMass;
    N, i, j: Integer;

begin
    Write('Количество элементов массива: ');
    ReadLn(N);
    for I := 1 To N Do
    begin
        Write('Введите A[', I, '] ');ReadLn(A[i]);
    end;
    
    i := 1;
    while (i <= n) do
        if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
            for j := i + 1 to n do
                A[j - 1] := A[j];
            n := n - 1
        end
        else i := i + 1;
    
    for I := 1 To N Do
        write(a[i]:6);
end.