1.Дан массив 1 2 3 4 5 6 7 8 7

1) var A:array[1..16]of integer;
i, max,min,perv_otricat, chetyre,dva:integer;

begin
A[1]:=1; A[2]:=2; A[3]:=3; A[4]:=4;
A[5]:=5; A[6]:=6; A[7]:=7; A[8]:=8;
A[9]:=7; A[10]:=0; A[11]:=-8; A[12]:=-4;
A[13]:=2; A[14]:=16; A[15]:=-10; A[16]:=2;
writeln(А) размерность массива = ,16);
writeln(Б) значение элемента А[3] = ,A[3]);
min:=A[1];
for i:=1 to 16 do
begin
if A[i]gt;max then
max:=A[i];
if A[i]lt;min then
min:=A[i];
if A[i]=2 then
dva:=dva+1;
if A[i]=(-4) then
chetyre:=i;
end;

writeln(В) значение наибольшего элемента массива = ,max);

for i:=1 to 16 do
begin
if A[i]lt;0 then
begin
perv_otricat:=i;
break;
end;
end;
writeln(Г) индекс первого отрицательного элемента массива = ,perv_otricat);
writeln(Д) индекс элемента, значение которого одинаково -4 = ,chetyre);
writeln(Е) значение минимального элемента массива = ,min);
writeln(Ж) количество элементов массива, значения которых равно 2 = ,dva);
end.

2) A[12]:=-4;

3) Р = 480.

4) S = 0.