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

Ввод, вывод массива и нахождение ответа оформить в виде подпрограмм.

program exam20; uses crt;

Type tabl=array[1..10,1..10] of integer; Var a:tabl; s,m,n:Integer;

Procedure Vvod(k,l:Integer;Var c:tabl);

Var i,j:Integer; Begin For i:=1 to n do For j:=1 to k do a[i,j]:=Random(100); End;

Procedure Vivod(k,l:Integer;c:tabl);

Var i,j:Integer;

Begin For i:=1 to n do Begin For j:=1 to k do Write(a[i,j]:5); WriteLn; End; End;

procedure sum(k,l:integer; c:tabl);

var i,j:integer; s:integer; begin s:=0; for i:=1 to k-1 do for j:=1 to k-i do

s:=s+c[i,j]; writeln('сумма элементов, лежажих над побочной диагональю = ',s);

end; begin writeln('ввести кол-во строк и столбцов'); readln(n,m); vvod(n,m,a);

writeln('исходный массив'); vivod(n,m,a); writeln('ответ'); sum(n,m,a); end.

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

Programtochki;

Procedureras(z1,z2,q1,q2:Real; Vard: Real);

Begin d:=sqrt(sqr(z2-z1)+sqr(q2-q1)); End;

Varx1,x2,y1,y2,z1,z2,x3,y3,w1,w2,w3:Real; Begin Writeln ('Ввести координаты первой точки'); Readln (x1,y1);

Writeln ('Вести координаты второй точки'); Readln (x2,y2);

Writeln ('Ввести координаты третий точки'); Readln (x3,y3);

ras (x1,x2,y1,y2,w1); ras (x2,x3,y2,y3,w2); ras (x1,x3,y1,y3,w3);

Writeln (w1:1:3); Writeln (w2:1:3); Writeln (w2:1:3);

if(w1=w2+w3) or(w2=w1+w3) or(w3=w1+w2)ThenWriteln ('Точки лежат на одной прямой') ElseWriteln ('Точки не лежат на одной прямой'); End.