for i:=1 to n do
for j:=1 to i-1 do
// далее аналогично

или

for i:=2 to n do
for j:=1 to i-1 do
// далее аналогично

Поиск среднего арифметического всех элементов главной диагонали (=след матрицы/n)

sum_diag:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then sum_diag:=sum_diag+a[i,j];
sr_ar_diag:=sum_diag/n;

Fanstar77, не сразу сообразил, но у тебя тоже все верно.

Добавлено (29.11.2008, 21:28)
---------------------------------------------
http://narod.ru/disk/4076698000/PROGRAMM.EXE.html

Добавлено (29.11.2008, 21:28)
---------------------------------------------
Если файл не начал скачиваться или вам надоело ждать, нажмите на ссылку:
Чтобы скачать файл, нажмите на ссылку:
http://narod.ru/disk/4076705000/PROGRAMM.PAS.html

Fanstar77, надо делать какие-то пояснения, чтобы всем понятно было о чем вообще речь.
Сделаю это сам на сей раз:
Дана матрица размером 3х7. Нужно найти номера таких столбцов данной прямоугольной матрицы, для которых разность элементов первой и второй строк не равна элементу третьей строки, а также их количество.

PS: Задача решена верно.

Даны два целочисленных массива: С(n) И P(m). если максимальный элемент С больше максимального элемента P, то сформировать новую последовательность, включающую элементы обоих массивов, значения которых делятся без остатка на заданное число, иначе-выдать сообщение.

А про способ формирования этой новой последовательности что-нибудь известно?
Допустим, что k элементов массива C(n) и s элементов массива P(m) удовлетворили условию. Что делать дальше? Каким именно образом формировать новый массив?
Например, можно так:
D(k+s)={c[1], c[9],...,c[85], p[1], p[9],..p[91]} или так
D(k+s)={p[1], p[9],..p[91], c[1], c[9],...,c[85]}.
Желательно узнать это у преподавателя.

Листинг:

Program mass;
const n=20; m=40;
var
C: array[1..n] of integer;
P: array[1..m] of integer;
i,s: integer;
z: real; // заданное число
begin
// Ввод массивов C и P с клавиатуры
// Поиск максимального элемента массива C
max_C:=c[1];
for i:=2 to n do
if c[i]>max_C then max_C:=c[i];
// Поиск максимального элемента массива P
max_P:=p[1];
for i:=2 to m do
if p[i]>max_P then max_P:=p[i];

if max_C>max_P then
begin
s:=0; // счетчик для элементов новой последовательности
for i:=1 to n do
if c[i]/z=round(c[i]/z) then begin s:=s+1; d[s]:=c[i]; end;

for i:=1 to m do
if p[i]/z=round(p[i]/z) then begin s:=s+1; d[s]:=p[i]; end;

// Вывод сформированной последовательности D
end
else writeln('Условие, необходимое для формирования нового массива, не выполняется.')
end.

Добавлено (07.01.2009, 18:56)
---------------------------------------------
Задача 1
В одномерном массиве Р размера n вычислить наименьшее произведение двух соседних элементов массива и его номер.
Задача 2
В одномерном массиве Р размера n определить полусумму минимального и максимального элемента за вычетом среднего арифметического всех элементов

На будущее: код программы и блок-схему (по возможности) надо выкладывать также и непосредственно здесь+не забывать про задание и элементарную вежливость

задание:определить разность наибольшего
и наименьшего элементов в массиве А.

program massiv;
var
a:array[1..20] of real;
mina,maxa,raznica:real;
n,i:integer;
begin
write('Enter n (n<=20):');
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
mina:=a[1];
maxa:=a[1];
for i:=2 to n do
begin
if a[i]<mina then mina:=a[i];
if a[i]<maxa then maxa:=a[i];
end;
raznica:=maxa-mina;
writeln;
writeln('raznica=');
readln;
end.

По скомпилированной программе:
1. Когда ищем максимальный элемент массива А, знак неравенства нужно заменить на обратный:
if a[i]>maxa then maxa:=a[i];
2. Значение разницы рассчитывается, но не выводится на экран.
Надо: writeln(raznica);

Начнем со второй задачи. Берем первую часть кода предыдущей задачи:

program massiv;
var
a:array[1..20] of real;
mina,maxa,raznica,sum:real;
n,i:integer;
begin
write('Enter n (n<=20):');
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;
mina:=a[1];
maxa:=a[1];

// С этого места начинаются некоторые изменения
// Поскольку в том же цикле, где мы ищем макс. и мин. элементы, мы будем также искать и сумму всех элементов (чтобы потом найти их среднее арифметическое значение), до цикла необходимо задать начальное значение этой суммы. Если цикл начинается с i=2 (оставим без изменений, хотя можно и с i=1), начальное значение суммы

sum:=a[1];

// Вопрос для проверки понимания: чему равно начальное значение суммы в случае начала цикла с i=1 и повлият ли это на поиск макс. и мин. элементов?

for i:=2 to n do
begin
if a[i]<mina then mina:=a[i];
if a[i]>maxa then maxa:=a[i];
sum:=sum+a[i]; // наращиваем сумму
end;

raznica:=(maxa+mina)/2-sum/n;
writeln(raznica);
readln;
end.

Добавлено (07.01.2009, 20:12)
---------------------------------------------
начальное значение равно НУЛЮ и на поиск наверно не повлияет!