46 баллов! помогите пожалуйста

можешь просто набрать этот текст что у тебя на картинке и выложить его тут. Я зупущу и отошлю результаты работы.

ок

Дана программка: Program E2_1; Var a: Array [1..8] Of Integer; M, k: Integer; Begin For k := 1 To 8 Do Readln (a[k]); M := a[1]; For k := 2 To 8 Do If M < a[k] Then M := a[k]; Write (M) End.Сколько раз будет выполнен оператор M := a[k] при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)?

это 1е

При наборе программки вычисления суммы отрицательных частей массива Program E2_2; Var a: Array [1..8] Of Integer; s, k: Integer; Begin For k := 1 To 8 Do Readln (a[k]); s := 0; For k := 1 To 8 Do If a[k] < 0 Then s := s + a[k]; Writeln (s) End.в записи оператора s := s + a[k] была допущена ошибка - заместо него был записан оператор s := s + 1. Каким оказался ответ после выполнения неверной программки, если в качестве частей массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?

2е

Какие значения воспримут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально A[3]:=5; A[4]:=6; A[3]:=A[4]; A[4]:=A[3]?

3е

В представленном куске программки значения одномерного массива задаются с помощью оператора цикла. Чему будет одинаково A[5]? For i := 1 To 5 Do Begin A[2*i - 1] := i; A[2*i] := i*i End.

4е

Program E2_1;
Сколько раз будет выполнен оператор M := a[k]
при данном массиве (3, 8, 7, 9, 4, 10, 2, 12)?

Ответ: 4 раза, т.к. условие  
    if M lt; a[k]
выполнится при a[k]=8, 9, 10, 12

------

Program E2_2;
в записи оператора s := s + a[k] была допущена ошибка - заместо него был записан оператор s := s + 1. Каким оказался ответ после выполнения неправильной программки, если в качестве элементов массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?

Ответ: s = 4, т.к. условие  
    if a[k] lt; 0  
выполнится при a[k]=-1, -2, -5, -7

---------

 Какие значения примут элементы массива A[3] и A[4] после исполненья последовательности операторов, если первоначально
 
A[3]:=5;
A[4]:=6;
A[3]:=A[4];
A[4]:=A[3]?

Ответ:
A[3] = 6;
A[4] = 6;

-----------


В представленном куске программы значения одномерного массива задаются с поддержкою оператора цикла. Чему будет одинаково A[5]?
For i := 1 To 5 Do Begin
    A[2*i - 1] := i;
    A[2*i] := i*i
End.

Элементу A[5] присвоит значение строчка
    A[2*i - 1] := i;
i при этом будет одинаково 3.

Ответ: A[5] = 3