Нужна помощь (задача с массивом)...

[lexus_ilia]

if M[i] mod 2 =0 then

Замени на

if i mod 2 =0 then

. т.к. тебе надо не чётные числа, а чётные индексы... и да, в твоём массиве нету на чётных местах отрицательных

[Tosa]

Спасибо невнимательно прочитал!!!

[Tosa]

Program mas;
uses crt;
const
M: array [1..10] of integer =(10,12,0,15,-5,4,-15,3,0,11);
Var
max,i: integer;
imax:integer;
BEGIN
clrscr;
max:=M[1];
imax:=1;
for i:=2 to 10 do
if M[i]>max then
max:=M[i];
writeln(‘max=’,max);
readln;
END.

[Tosa]

3)Найти отношение произведений ненулевых элементов первой и второй половин массива.

А эту как интересно???

[alex_fcsm]

Сообщение от Tosa

Program mas;
uses crt;
const 
M: array [1..10] of integer =(10,12,0,15,-5,4,-15,3,0,11);
Var
max,i: integer;
imax:integer;
BEGIN
clrscr;
max:=M[1];
imax:=1;
for i:=2 to 10 do
if M[i]>max then
max:=M[i];
writeln(‘max=’,max);
readln;
END.

Раз четный элемент нужен то
нужно проверку делать

if M[i] mod 2 = 0 then 
  if M[i]>max then ...

И в конце проверить можно снова так как в массиве может не быть четных элементов(в общем случае):

 if max mod 2 =0 then writeln(max)
    else writeln('NO such elements');

[alex_fcsm]

Сообщение от Tosa

3)Найти отношение произведений ненулевых элементов первой и второй половин массива.

А эту как интересно???

multF:=1;
multS:=1;
for i:=1 to n do
 if i < (n div 2) then if a[i]<>0 then multF:=multF*a[i]
    else if a[i]<>0 then multS:=multS*a[i];

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

[Goldberg]

Спасибо за помощь!!!

Может еще кто-нибудь чем поможет...

Буду благодарен, в понедельник зачет...

[Tosa]

Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
6)Найти сумму и количество положительных и отрицательных элементов массива.
Program mas;
uses crt;
const
M: array [1..3,1..4] of integer =((-1,5,8,-11)(1,7,-15,0)(3,-3,-4,16));
Var
s,s2,s3,s4,I,j: integer;
BEGIN
clrscr;
s:=0;
S2:=0;
S3:=0;
S4:=0;
for i:=1 to 3 do
for j:=1 to 4 do
if M[i,j]>0 then
begin
s:=s+ M[i,j];
s2:=s2+1;
end;
writeln(‘Summa pologitelnix =’,s);
writeln(‘Colichestvo pologitelnix elementov =’,s3);
for i:=1 to 3 do
for j:=1 to 4 do
if M[i,j]<0 then
begin
s3:=s3+ M[i,j];
s4:=s4+1;
end;
writeln(‘Summa otricatelnix =’,s3);
writeln(‘Colichestvo otricatelnix elementov =’,s4);
readln;
END.

[Tosa]

Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
7)Найти сумму и количество элементов столбцов с четными индексами.

Program mas;
uses crt;
const
M: array [1..3,1..4] of integer =((-1,5,8.0,11)(1,7,-15,4.0)(3,-4,10,0,16));
Var
s,s2,I,j: integer;
BEGIN
clrscr;
s:=0;
S2:=0;
for i:=1 to 3 do
for j:=1 to 4 do
if j mod 2=0 then
begin
s:=s+ M[i,j];
s2:=s2+1;
end;
writeln(‘Summa elementov s chetnimi stolbcami =’,s);
writeln(‘Colichestvo elementov=’,s2);
readln;
END.

[Tosa]

Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
8)Найти среднее значение элементов строк с нечетными индексами.

Program mas;
uses crt;
const
M: array [1..3,1..4] of integer =((-1,5,8,0,11)(1,7,-15,4,0)(3,-4,10,0,16));
Var
s,i,j,k: integer;
a: real;
BEGIN
clrscr;
s:=0;
k:=0;
for i:=1 to 3 do
if i mod 2<>0 then
for j:=1 to 4 do
begin
s:=s+ M[i,j];
k:=k+1;
end;
a:=s/k;
writeln(‘Srednee znachenie elementov nechetnix strok=’,a:4:2);
readln;
END.