Массив

[r3lax]

В одномерном массиве С[6,7] вычислить произведение отрицательных элементов массива.
Зарание СПАСИБО!

[r3lax]

Дано массив целых чисел из 10 елементов. Создать новый массив, который содержит значение индексв отрицательных елементов первого массива. Вывести на друк оба массива

[domovou]

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

В одномерном массиве С[6,7]

я сделал для двумерного

const
     n=6;
     m=7;
var a:array [1..n,1..m] of integer;
    i,j,pro:integer;
begin
pro:=1;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(51)-25;
        if a[i,j]<0 then pro:=pro*a[i,j];
        write(a[i,j]:3);
        end;
    writeln;
    end;
writeln('proizved = ',pro);
readln;
end.

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

Дано массив целых чисел из 10 елементов....

const
     n=10;
var a,b:array [1..n] of integer;
    i,j:integer;
begin
writeln;
j:=0;
for i:=1 to n do
   begin
   a[i]:=random(51)-25;
   if a[i]<0 then begin inc(j);b[j]:=i; end;
   write(a[i]:3);
   end;
writeln;
for i:=1 to j do
    write(b[i]:3);
readln;
end.