требуется сформировать массив, содержаший положительные элементы, расположенные во второй половине (включая середину) исходного массива.(PASCAL)
Подскажите пожайлуста, как мне найти эти элементы (я не прошу решать всю задачу). Как я понимаю это надо делать через функцию mod
заранее благодарен!!!
For i := n div 2 to n do ...
а как сделать чтобы он выводил только числа расположенные во второй половине (включая середину)?
Вот мооя прог-а:
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.
Ну, я же показал тебе цикл... При таком цикле как раз и будет просматриваться только вторая половина массива...
Во-первых, что ты ЭТИМ пытаешься добиться:
a[na] div 2? Какой это пункт задания?
этим я хотел разбить массив на 2 части
a[na] div 2