Найти сумму элементов по периметру массива N*N

@Юлия575 · Регистрация: 03.01.2015

Author24 — интернет-сервис помощи студентам

Найти сумму элементов по периметру массива N*N.

@ZX Spectrum-128 · 14.03.2015, 18:18

(С) ermolay

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,s: integer;
begin
  randomize;
  write('Введите размеры матрицы n: ');
  readln(n);
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(10)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (i=1)or(j=1)or(i=n)or(j=n)   then s:=s+a[i,j];
  writeln('Сумма элементов = ',s);
  readln;
end.

@Cyborg Drone · 16.03.2015, 12:20

Pascal

  s := 0;
  for i := 1 to n - 1 do s := s + a[1, i] + a[i, n] + a[i + 1, 1] + a[n, i + 1];
  writeln('Сумма элементов = ', s);
  readln;
end.

@Юлия575 0 / 0 / 0 Регистрация: 03.01.2015 Сообщений: 33
		1
	Найти сумму элементов по периметру массива NN 14.03.2015, 18:06. Показов* 3032. Ответов 2 Метки нет (Все метки) Найти сумму элементов по периметру массива N*N. 0

	16.03.2015, 12:20

Найти сумму элементов по периметру массива N*N

Решение