Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Двумерный массив

Автор: Demon562647 8.6.2007, 11:44

Двумерный массив K(m,n) заполнен случайными числами. Найти сумму элементов внешних строк и столбцов (по периметру).

Автор: Rodman 8.6.2007, 12:34

Код


uses
  Crt;
const N=10;
var a:array[1..N,1..N] of integer;
    i, j, count:Integer;
begin
  Randomize;
  for i:=1 to N do
    for j:=1 to N do
      a[i, j]:=Random(20);
  count:=0;
  for i:=1 to N do
    count:=count+a[1, i] + a[i, 1] +a[N, i] + a[i, N];
  Writeln(count);
  Readln;
end.

Автор: kali 8.6.2007, 12:41

Rodman,  у тебя четыре угловые элемента по два раза считаются

Добавлено через 11 минут и 36 секунд
Demon562647,  Если тебе нужна имеено сумма строк и столбцов, то как у
Rodman,  а если периметр то последний цикл замени на

Код


  for i:=1 to N-1 do
    count:=count+a[1, i] + a[i+1, 1] +a[N, i+1] + a[i, N];

Автор: Demon562647 8.6.2007, 18:06

Сэнкс