1. Дан массив 1 2 3 4 5 6 7 8 7 0 - 8 - 4 2 16 - 10 2 А Определите: А) размерность массива; Б) значение элемента А[3]; В) значение максимального элемента массива; Г) индекс первого отрицательного элемента массива; Д) индекс элемента, значение которого равно - 4; Е) Значение минимального элемента массива; Ж) количество элементов массива, значения которых равно 2. 2. Привести пример отрицательного элемента массива с четным индексом. 3. Найти значение переменной Р. p:=1; For i:=3 to 5 do p:=p * (2*i); write (p); 4. i:=2; s:=0; while i<=8 do begin s:=s+s/2; i:=i+2; end; write (s);

Question

Сонифер

Информатика

29 апреля, 20:56

1. Дан массив 1 2 3 4 5 6 7 8 7 0 - 8 - 4 2 16 - 10 2 А Определите: А) размерность массива; Б) значение элемента А[3]; В) значение максимального элемента массива; Г) индекс первого отрицательного элемента массива; Д) индекс элемента, значение которого равно - 4; Е) Значение минимального элемента массива; Ж) количество элементов массива, значения которых равно 2. 2. Привести пример отрицательного элемента массива с четным индексом. 3. Найти значение переменной Р. p:=1; For i:=3 to 5 do p:=p * (2*i); write (p); 4. i:=2; s:=0; while i<=8 do begin s:=s+s/2; i:=i+2; end; write (s);

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Александр Демин · Answer 1

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]>max then

max:=A[i];

if A[i]
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]<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.