со схемой алгоритма, кто шарит Текст:
program n5;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
n,m,i,j:byte;
s,max:integer;
begin
randomize;
repeat
write('количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-2;
write(a[i,j]:3);
end;
writeln;
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to m do
if a[i,j]>0 then s:=s+a[i,j];
a[m+1,j]:=s;
if s>max then max:=s;
end;
for i:=1 to n do
if a[m+1,i]=max then writeln('столбец № ',i);
end.

Объяснение:

1. Определение и типы массивов

Массив - это множество однотипных элементов, объединённых общим именем и занимающих в компьютере определённую область памяти. Количество элементов в массиве всегда конечно. В общем случае массив - это структурированный тип данных, состоящий из фиксированного числа элементов, имеющих один и тот же тип.

Другими словами можно сказать, что массив представляет собой фиксированное количество упорядоченных однотипных компонент, снабженных индексами, т.е. является совокупностью конечного числа данных одного типа. В качестве элементов массива можно использовать любой тип данных, поэтому вполне правомерно существование массивов записей, массивов указателей, массивов строк, массивов и т.д.

Массивы могут быть:

· одномерными (одна строка – несколько столбцов);

· многомерными (несколько строк – несколько столбцов).

Для создания массива его предварительно необходимо описать либо в разделе var, либо в разделе type. Для задания массива используется зарезервированное слово array, после которого указывается тип индекса (-ов) компонент (в квадратных скобках) и после слова of - тип самих компонент:

Type

<имя массива>=array[<тип индекса(-ов)>] of <тип компонент>;

Или

Var

<имя массива>:array[<тип индекса(-ов)>] of <тип компонент>;

Введя тип массив, можно задавать переменные или типизированные константы этого типа. Размерность массива может быть любой, компоненты массива могут быть любого, в том числе и структурированного, типа; индекс может быть любого порядкового типа, кроме типа longint.

При задании значений константе-массиву компоненты указываются в круглых скобках и разделяются запятыми, причем, если массив многомерный, внешние круглые скобки соответствуют левому индексу, вложенные в них круглые скобки - следующему индексу и т.д.

Например,

Type

arr = array [1..3] of real;

matrix = array [1..3, 1..2] of integer;

Const

mas1: arr = (1, 2, 3);

mas2: matrix = ((1, 2), (3, 4), (5, 6));

Тип массив можно вводить и непосредственно при определении соответствующих переменных или типизированных констант.

Например,

Var

m1, m2 : array [1..3] of integer;

matr : array [1..3, 1..3] of real;

Доступ к компонентам массива осуществляется указанием имени массива, за которым в квадратных скобках помещается значение индекса (-ов) компоненты. В общем случае каждый индекс компоненты может быть задан выражением соответствующего типа.

Например, m1 [2], matr[i,j].

Для обработки массива и последовательного доступа к данным, как правило, используется цикл FOR.

Например,

for i:=1 to 10 do read(mas[i]);

Обработка элементов двумерного массива обычно выполняется с двойного цикла. Один цикл управляет перебором номеров строк, другой - столбцов.

Например,

for i:=1 to 10 do

for j:=1 to 10 do read(mas[i, j]);

Над элементами массива можно производить те же операции, которые допустимы для данных его базового типа. Если два массива имеют одинаковые типы индексов и одинаковые типы элементов, то к ним применимы булевы операции (<>=).

2. Основные операции обработки массивов

2.1 Определение размерности массива, заполнение массива

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

Природа – это все то, что нас окружает. Это и животные, и растения, и вода, и небо, и земля. Если мы не будем охранять природу и заботится о ней, то, в конце концов, она умрет, и нам просто негде будет жить. Окружающий нас мир играет в нашей жизни большое значение: он дает нам продукты питания, землю, воздух и многое другое. Все эти вещи взаимосвязаны, и если не будет одного, то не будет