program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
Сноски используются в документе для пояснений, комментариев и ссылок на другие документы. При этом для подробных комментариев лучше использовать обычные, а для ссылок на источники — концевые сноски.
1. Знаки обычной и концевой сноски.
Сноска состоит из двух связанных частей: знака сноски (число, знак или сочетание знаков, указывающие на наличие в сноске дополнительных сведений) и текста сноски.
2. Разделитель.
3. Текст обычной сноски
4. Текст концевой сноски.
Объяснение:
Ограничения на длину и оформление текста сносок отсутствуют. Допускается также изменение разделителя сносок — линии, отделяющей текст документа от текста сноски.
program z1;
const n=5;
var i,s: integer;
a:array[1..n] of integer;
begin
s := 0;
write('Массив : ');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:3);
s:=s+a[i]
end;
writeln;
writeln('Сумма значений элементов целочисленного массива ',s);
writeln('Среднее арифметическое значений элементов целочисленного массива ',s/n)
end.
Объяснение:
n - размерность массива
s - сумма значений элементов
В цикле с параметром:
1) задаём значение элемента массива
2) выводим элемент на экран
3) считаем сумму
Выводим на экран сумму
Выводим на экран среднее арифметическое (делим сумму на количество элементов массива)