двумерный массив

[kolobok00100]

составьте пожалуйста программу и блог схему, а то я совсем баран!!!!

4. Ввести двумерный массив , вывести его. Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём. Полученной суммой заменить отрицательные элементы последнего столбца.

[CodeExpert]

а то я совсем баран!!!!

, пиши либо во фриланс, либо стучи в 5семь7-8шесть6-8четыре8 или почта alexprokud@gmail.com помогу за вознаграждение... П.с. за тебя без твоего кода никто делать не будет, тем более рисовать блок-схемы

[CodeExpert]

Ладно, вот держи, и только потому что тоже студент и я люблю Волгоград, где у меня живут много родственников...

program ik;
uses Crt;
var mas:array[1..100,1..100] of integer; //массив
    i,j,x,y:integer;//счетчики
    sum:integer;//сумма
begin
Writeln('Введите размерность массива');
Readln(x,y);//считываем размерность
{вводим массив}
for i:=1 to x do begin
 for j:=1 to y do 
  begin Writeln('Введите элемент:строка = ',i,' столбец = ',j);
   Readln(mas[i,j]);end;end;
{выводим первоначальный вид}
for i:=1 to x do begin
 for j:=1 to y do Write(mas[i,j]:4);Writeln;end;
sum:=0;//обнуляем сумму
for i:=1 to x do begin
 for j:=1 to y do 
  begin 
   if (mas[i,j]>=0) and not(mas[i,j]mod 3=0) then sum:=sum+mas[i,j]; 
   end;end;
Writeln('Сумма = ',sum);
 for j:=1 to y do 
  begin 
   if mas[x,j]<0 then mas[x,j]:=sum;
   end;
 {выводим конечный вид вид}
Writeln('Конечный вид матрицы');
for i:=1 to x do begin
 for j:=1 to y do Write(mas[i,j]:4);Writeln;end;  
 end.

блок-схему сами нашаманите...