28.04.2014, 23:27 | #1 (permalink) |
Member
Регистрация: 20.02.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача в Паскаль, массив
Посчитать сумму элементов двумерного массива, стоящих по периметру. |
28.04.2014, 23:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные темы создавались ранее, вы можете ознакомиться с ними Задача на массив Задача на Паскаль, одномерный массив Задача на Паскале про массив Задача на массив в С++ Массив, почти решена задача Экзаменационная задача на массив |
29.04.2014, 03:11 | #2 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
вот...
Код:
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|