вот те пару примерчиков

найти сумму всех элементов квадратной матрицы, расположенных по главной диагонали и выше ее.


program Tupac_Shakur;
uses crt;
var
a: array [1..30,1..30] of integer;
i,j,s,n: integer;
begin
clrscr;
writeln ('введите количество строк и столбцов: ');
readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln (a[i,j]);
end;
for i:=1 to n do
for j:=i+1 to n do
begin
if j>=i then
begin
s:=s+a[i,j];
end;
end;
writeln('s=',s);
readln;
end.





вот для первой проги пример(два произвольных массива P,G размера n,m соответственно. Найти сумму квадратов элементов массива P и сумму квадратов элементов массива G)


program Thugz_cry;
uses Crt;
var
Summ1, Summ2: real; {на integer-ах можно очень быстро словить переполнение, тем более считая сумму квадратов}
I, N, M: Integer;
P,G:array[1..1000] of real;
begin
ClrScr;
Write('Введите размерность массива P: ');
ReadLn(N);
if (N>1000) then
begin
writeln('Заданный размер массива P слишком велик! Размер ограничен тысячей элементов.");
N:=1000;
end;
Write('Введите размерность массива G: ');
ReadLn(M);
if (M>1000) then
begin
writeln('Заданный размер массива G слишком велик! Размер ограничен тысячей элементов.");
M:=1000;
end;
WriteLn;

for I := 1 to N do begin
Write('Введите ', I, '-ый элемент массива P: ');
ReadLn(P[I]);
end;

for I := 1 to M do begin
Write('Введите ', I, '-ый элемент массива G: ');
ReadLn(G[I]);
end;

Summ1 := 0;
Summ2 := 0;
for I := 1 to N do Summ1 := Summ1 + Sqr(P[i]);
for I := 1 to M do Summ2 := Summ2 + Sqr(G[i]);

WriteLn;
Write('Сумма квадратов элементов массива P: ');
WriteLn(Summ1);
Write('Сумма квадратов элементов массива G: ');
WriteLn(Summ2);
WriteLn('Нажмите любую клавишу');
ReadKey;

end.