помогите с паскалем

[Dimati87]

вычисляя значения переменой X=8D F при всех значениях
D=1,2,3 и F=-1,-2,-6 Создай двумерный массив. Вывести значения элиментов
массива и значения D,F.Подсчитать сумму неотрицательных элиментовмассива.
Заранее благодарен!!!!!!!!!!!!!!!!!!!!

[Stilet]

И что сложного?

var a:array[1..3,1..3] of integer;
 q,w:integer;
begin
 for q:=1 to 3 do begin
  w:=-1; while w>-6 do begin
    a[q,w]:=8*q*w;
    w:=w*2+w;
  end;
 end;
end.

Примерно так. Вывод сделай сам.
Я только не уверен во второй формуле, так что поправь ее.
Не тестировал.

[Dimati87]

а если вот так:

var

d1,d2,d3,f1,f2,f3,sum:extended;
m:array[1..3,1..3];

begin

d1:=8*1;
d2:=8*2;
d3:=8*3;
f1:=8*(-1);
f2:=8*(-2);
f3:=8*(-6);

for i:=1 to 3 do degin
for j:=1 to 3 do 
m[1,j]:=d1;
m[2,j]:=d2;
m[3.j]:=d3;
m[i,1]:=f1;
m[i,2]:=f2;
m[i,3]:=f3;

writeln('массив',m[i,j]:3);

writeln('значения d1', d1);
writeln('значения d1', d2); 
writeln('значения d1', d3); 
writeln('значения f1', f1); 
writeln('значения f1', f2); 
writeln('значения f1', f3);  

end;

begin 

sum:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do
if m[i,j]>0 then sum:=sum+m[i,j];
writeln('сумма', sum);

end;
end.

сам проверить не могу нет компилятора, посмотрите подскажите что не так ))
Замечание модератора: Используйте тег [CODE]