[паскаль!]превращение!

[Tifa]

вот у меня есть задачка)!.....

Program progr1;
uses crt;
var
i,j,m,n,e:integer;
a:array[1..40,1..40]of integer;
s:real;
flag:boolean;
begin
clrscr;
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є');read(m);
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў');read(n);
flag:=true;
for i:=1 to m do
for j:=1 to n do
flag:=true;
for i:=1 to m do
for j:=1 to n do
begin
gotoxy(1,3);write('ўўҐ¤ЁвҐ a[',i,',',j,']');read(a[i,j]);
gotoxy(e+5*j,4+2*i);write(a[i,j]);
e:=5+e;
if j=n then e:=0
end;
for i:=1 to m do
for j:=1 to n do
begin
if(flag=true)then begin
if(a[i,j]<0)and(a[i,j]mod 2<>0)then begin
              s:=a[i,j];
              flag:=false;
              end;
end
else begin
if(a[i,j]<0)and(a[i,j]mod 2<>0)then begin
                s:=s/a[i,j];
                end;
 end;
end;
writeln(s:2:6);
readln;
readkey;
end.

надо из 2 масива сделать одномерный....(((но что бы задачка работала тагже!....напишите пожалуста уже в 1 масиве очень прошу)))***********)_)))

[Вадим Мошев]

1. Напишите само задание.
2. Преобразование двумерного массива в одномерный выполняется так:

k:=0;
for i:=1 to n do
       for j:=1 to m do begin
                            inc(k);
                            b[k]:=a[i,j];
                            end;

[Tifa]

а задание....найти часное нечетных отрицательных елементов масива!ююнапиши пожалуста полность в исправленом виде!)))

[Вадим Мошев]

найти часное нечетных отрицательных елементов масива

Да что такое с формулировкой заданий-то??

Частным называется результат деления двух чисел, одно из которых называется делимым, второе - делителем.

Так если у нас делимое 10, а делитель 2, то их часТное равно 5.

Если делимое = 100, а делитель 25, то частное = 4.

А у вас на входе будет МАССИВ ЧИСЕЛ. Как в этом случае вычислить частное?

[Tifa]

вот например водим
-5 5 3 4
-5 -7 6 -5
-3 -2 1 3
нечетные отрицательнОЕ -5 -5 -7 -5 -3 (надо это все разделить))))и получица ответ!