Для матрицы 6х6 (36 элементов):
const n=6;
var
a:array[1..n,1..n] of integer;
i,j,max:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51);
write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
for i:=2 to n do
if a[i,i]>max then max:=a[i,i];
writeln('max = ',max);
end.
Пример:
Исходный массив:
32 14 6 10 45 8
39 31 5 28 18 15
3 19 19 18 35 0
42 27 36 28 8 10
5 13 40 10 41 10
35 12 18 17 31 4
max = 41
PROGRAM TREUG;
var a,b,c: integer;
begin
writeln ('Сторона 1=');
readln (a);
writeln ('Сторона 2=');
readln (b);
writeln ('Сторона 3=');
readln (c);
if ((a^2=b^2+c^2)or(b^2=a^2+c^2)or(c^2=a^2+b^2)) then
writeln ('треугольник прямоугольный');
else writeln ('треугольник не прямоугольный');
end.
Формула периметра P=a*b*c
Формула площади S=1/2 * длину и ширину
Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²
var
a:real;
begin
Write('a=');
Read(a);
Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a))))
end.
Тестовые решения
a=2
2^10=1024
a=3.18
3.18^10=105747.765633159
a=10
10^10=10000000000
a=318.53
318.53^10=1.07523505784868E+25