Mod (остаток от деления), использование в массиве Опции

[Дима]

требуется сформировать массив, содержаший положительные элементы, расположенные во второй половине (включая середину) исходного массива.(PASCAL)
Подскажите пожайлуста, как мне найти эти элементы (я не прошу решать всю задачу). Как я понимаю это надо делать через функцию mod
заранее благодарен!!!

[volvo]

For i := n div 2 to n do ...

Если N нечетное - могут потребоваться дополнительные телодвижения...

[Дима]

а как сделать чтобы он выводил только числа расположенные во второй половине (включая середину)?
Вот мооя прог-а:
PROGRAM N6_4;
const
nmax=10;
var
a,b:array[1..nmax] of real;
na,nb:integer;{число элементов в массивах}
ia,ib:integer;{номер очередного элементов массивов}
begin
repeat
writeln('vvedite chislo elementov ne bolee ',nmax);
readln(na);
if (na<=0) or (na>nmax) then
writeln('Error')
until (na>0) and (na<=nmax);
for ia:=1 to na do
begin
writeln('vvedite ',ia,'-y element');
readln(a[ia]);
end;
nb:=0;
for ia:=1 to na do
if (a[na] div 2)<>0 {and (ia>0)} then
begin
nb:=nb+1;
b[nb]:=a[ia];
end;
writeln('chilo viybrannyh elementov=',nb);
if nb>0 then
begin
write('vibrannie elementi:');
for ib:=1 to nb do
write(' ',b[ib]:6:1);
readln(b[ib]);
writeln;
end; readln;
end.

Сообщение отредактировано: Дима - 23.12.2006 0:04