Решение матрицы

[Astat1ne]

Доброго времени суток. Помогите пожалуйста с информатикой, сам химик,в паскале ничего не понимаю... Задание:Составить программу,отладить ее и произвести на ЭВМ соответ. вычисления

[Astat1ne]

подниму тему

[Вадим Мошев]

Ссылка у меня в подписи. Обращайтесь - выполню за небольшую плату.

[Stilet]

сам химик,в паскале ничего не понимаю

А что будешь делать когда препод задаст дополнительный вопрос?

const r=3,c=5;
var a:array[1..r,1..c] of double;
 b:array[1..r,1..c-1] of double;
 k,i,j,n,q:integer; sum:double;
begin
 k:=3; n:=3; sum:=0;
 for i:=1 to r do begin
   q:=1;
   for j:=1 to c do begin
    readln(a[i,j]);
    if j<>k then begin b[i,q]:=a[i,j]; inc(q); if i=n then sum:=sum+b[i,q]; end;
   end;
 end;

 for i:=1 to r do begin
   for j:=1 to c do begin
    write(a[i,j]:10:2);
   end; writeln;
 end;

 for i:=1 to r do begin
   for j:=1 to c-1 do begin
    write(b[i,j]:10:2);
   end; writeln;
 end;

 readln;
end.

Писано с потолка.