незнаю как решить задачи

[катюшик]

1) Дан массив действительных чисел a1,...,an. Получить количество отрицательных членов массива a1,...,an и произведение элементов принадлежащих отрезку [a,b].
2) В произвольно заданной матрице размера 4*6 определить строку с максимальной суммой элементов и столбец с минимальной суммой.

[Stilet]

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

cnt:=0;for i:=1 to n do if a[i]<0 then inc(cnt);

произведение элементов принадлежащих отрезку

p:=1;for i:=a to b do p:=p*a[i];

Где
cnt:Double - Колво-отрицательных
p:Double: - произведение

[eoln]

Небольшая поправка по cnt:Double
inc работает с целыми, поэтому надо cnt:integer

[Leshii]

1) Первую задачу писал когда, вы уже отвечали, так что прошу прощение за повторение

Uses crt;
const Nmax = 100;
Type
  Massiv = array [1..Nmax] of integer;
var
  Mas: Massiv;
  i, count, n: integer;
  a, b: integer;
  multiply: real;
begin
clrscr;
randomize;

write('Enter number of elements in array: ');readln(n);
write('Enter the first boundry: ');readln(a);
write('Enter the second boundary: ');readln(b);
clrscr;

writeln('Mas[i]: ');
for i:=1 to n do begin
    Mas[i]:=random(21)-10;
    write(Mas[i]:3);
end;

for i:=1 to n do begin
    if Mas[i] < 0 then inc(count);
end;

multiply:=1;
for i:=a to b do multiply := multiply * Mas[i];

writeln;
writeln(count);
writeln(multiply:3:2);
readkey;
end.

2)

Uses crt;
const n = 4; m = 6;
var
 Matrix: array [1..n,1..m] of integer;
 i, j, index_i, index_j: integer;
 max, sum, min: real;
begin
clrscr;
randomize;
for i:=1 to n do  begin
 for j:=1 to m do
     Matrix[i,j]:=random(21)-10;
end;

for i:=1 to n do begin
 for j:=1 to m do
     write(matrix[i,j],' ');
     writeln;
end;
index_i:=1;
max:=-1e37;
for i:=1 to n do
 begin
 sum:=0;
 for j:=1 to m do
    sum:=sum+matrix[i,j];
    if (sum > max) or (i = 1) then begin
       max:=sum;
       index_i:=i;
    end
end;
writeln('Max sum is: ',max:3:2);
writeln('# ',index_i);
index_j:=1;
min:=1e37;
for j:=1 to n do
 begin
 sum:=0;
 for i:=1 to m do
    sum:=sum+matrix[j,i];
    if (sum < min) or ( j = 1 ) then begin
       min:=sum;
       index_j:=j;
    end;
end;
writeln('Min sum is: ',min:3:2);
writeln('# ',index_j);
readkey;
end.

[Stilet]

Небольшая поправка по cnt:Double

Упс... Затупил...

[катюшик]

большое спасибо=))))