Ошибка в подсчете нечетных элементов в массиве

krashone

Сформировать из элементов матрицы одномерный массив, каждый элемент которого - это количество элементов каждого столбца матрицы, имеющих нечетное значение.
var a: array [0..15] of integer;
var mas1:array[0..15,0..15] of integer;
var q,k,j,i,s,b: integer;
begin
s:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
for i:=0 to s do begin
for j:=0 to b do
if ((mas1[i,j]) mod 2)= 0  then
begin
mas1[i,j]:=k+1;
a[i]:=mas1[i,j];
stringgrid2.Cells[i,j]:=inttostr(a[i]);
end;
end;
end;
5 ответов

krashone

krashone,
имеющих нечетное значение.
((mas1[i,j]) mod 2)= 0
это четное число
k+1
перед циклом необходимо поставить k=0


krashone

все равно не работает


krashone

((mas1[i,j]) mod 2)<> 0


krashone

повторяю
((mas1[i,j]) mod 2)= 0
это четное числонадо
((mas1[i,j]) mod 2)<> 0
ну вот, сами же и исправили


krashone

программа все равно мозг парит, не получается просто хотябы подсчитать число элементов в столбцне хоть четных хоть нечетных(