Пуп))))))))))))))))))))))))
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(ReadInteger('n='));
var max := a.Max;
var i := a.IndexesOf(t -> t = max).ToArray;
Print('Максимум, равный', max, 'у элемента(-ов) номер');
i.Select(t -> t + 1).Println(', ')
end.
<h2>Пример</h2><h3>n= 15</h3><h3>-13 16 6 -12 -14 4 -12 -12 12 6 -10 2 16 -7 8</h3><h3>Максимум, равный 16 у элемента(-ов) номер 2, 13</h3>
A^n = exp(ln(a) * n)
или
S:=1;
for i:=1 to N do S:=S*x;
Var
a, h, S: real;
begin
Write('Введите значения основания и высоты треугольника: ');
Readln(a, h);
S := a * h / 2;
Writeln('Площадь треугольника равна ', S)
end.
Тестовое решение:
Введите значения основания и высоты треугольника: 15.4 7.3
Площадь треугольника равна 56.21
// PascalABC.Net
function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
d,nd,sd:byte;
begin
sd:=0; nd:=0;
repeat
d:=n mod 10;
sd:=sd+d; Inc(nd);
n:=n div 10
until n=0;
IsNice:=(sd mod nd = 0)
end;
var
i,n,k:longint;
begin
Write('Порядковый номер "красивого" числа: '); Read(n);
i:=1; k:=0;
repeat
if IsNice(i) then Inc(k);
if k<>n then Inc(i)
until k=n;
Writeln('Красивое число равно ',i)
end.
<em><u>Тестовое решение:</u></em>
Порядковый номер "красивого" числа: 15
Красивое число равно 20
