Технический форум - Задача в Паскаль, массив

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача в Паскаль, массив (http://www.tehnari.ru/f41/t96055/)

scorpius

28.04.2014 23:27

Задача в Паскаль, массив

Помогите, пожалуйста, чайнику с двумерным массивом...

Посчитать сумму элементов двумерного массива, стоящих по периметру.

:tehnari_ru_837:

poiu	29.04.2014 03:11

вот...

Код:

const

 n = 10;

 m = 10;



type

 Tmas = array[1..n, 1..m] of integer;



var

 i, j: byte;

 mas: Tmas;

 sum: integer;



begin

randomize();

writeln('Input matrix:');

 for i:= 1 to n do

  begin

   for j:= 1 to m do

    begin

     mas[i,j]:= random(50);

     write(mas[i, j]:4);

    end;

  writeln;

  end;

sum:= 0;

 // row 1

 for j:= 1 to m do sum:= sum + mas[1, j];

 // row 2..n-1

 for i:= 2 to n-1 do sum:= sum + mas[i, 1] + mas[i, m];

 // row n

 for j:= 1 to m do sum:= sum + mas[n, j];

writeln('Summa po perimetru: ', sum);

readln;

end.

Часовой пояс GMT +4, время: 10:53.