Максимальный элемент массива;

max:=a[1];

for i:=2 to 10 do

if a[i]>max then {>= последний }

Begin

max:=a[i]; * 8

p:=i 3

End;

Writeln(t);

*

Для вычисления последнего максимального

элемента нужно добавить знак равенства a[i]>=max

2). Вычисляет последний

Максимальный элемент массива;

max:=a[10];

for j:=9 downto 1 do

if a[j]> max then {>= первый }

Begin

max:=a[j];

p:=j

End;

Writeln(max);

*

Для вычисления первого максимального

элемента нужно добавить знак равенства a[i]>=max

А (3, 5, 8, 7, 2, 4, 6, 8, 1, 3)

3). Вычисляет максимальный (минимальный) элемент массива;

Й способ

for k:=1 to 10 do

if (k=1) or (max<a[k]) then max:=a[k];

Й способ

for k:=10 downto 1 do

if (k=10) or (max <a[k]) then max:=a[k];

4). Вычисляет максимальный (минимальный) элемент массива и его индекс среди элементов, значения которых <5;

X(3.5, -7.4, 1.7, 12.9, -5.6, 21.3, -8.6, 4.5, 0.6, 2.5);

for i:=1 to n do

if (x[i]<5) and (k=0) then

begin max:=x[i]; k:=i end

else

if x[i]<5 then if x[i]>max then

begin max:=x[i]; k:=i end;

11). Найти первый (последний) отрицательный (положительный) элемент массива

Массив А(1, 3, 8, 2, -3, -1, 4, -9, 5, -2)

Вычисляет первый отрицательный (положительный) элемент массива;

1). for k:=10 downto 1 do

if 0>a[k] then t:=a[k]; { или 0<a[k] полож. }

Writeln(t);

Вычисляет последний отрицательный (положительный) элемент массива;

2). for k:=1 to 10 do

if 0>a[k] then t:=a[k];

Writeln(t)

Найти сумму элементов массива, начиная с первого отрицательного.

A (2, 3, -5, 7, -8, 9, 13, 4, -6, 18)

for i:= 10 downto 1 do

if a[i]< 0 then p:=i; { 0>a[i]}

S:=0; { p–номер первого отр. эл-та }

for i:= p to 10 do

S:=S + a[i];

Найти сумму и произведение элементов массива, начиная с первого элемента и до последнего отрицательного элемента включительно.

A(2, -3, -5, 7, -8, 6, 9, 4)

for i:= 1 to 8 do

if a[i]< 0 then p:=i; { p– номер посл. отр. эл-та }

S:=0;

for i:= 1 to p do p=5

S:=S + a[i];

P:=1;

for i:= 1 to p do

P:=P* a[i];

Дата добавления: 2015-07-10