Все решения даны в системе программирования PascalABC.NET 3.2, сборка 1382 от 06.02.2017
Если программа не работает, обновите версию!
№1 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); var im:=a.IndexMax; Writeln('Максимальный элемент номер ',im+1,' равен ',a[im]) end.
Пример n= 6 Вводите числа: 13 8 -15 0 16 -24 Максимальный элемент номер 5 равен 16
№2 begin var a:=ReadArrInteger('Вводите числа:',ReadInteger('n=')); Sort(a,(x,y)->x>y); a.Println end.
Пример n= 5 Вводите числа: 5 -4 6 0 5 6 5 5 0 -4
№3 begin var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println; Sort(a,(x,y)->x>y); a.Println end.
ЗАДАЧА №1
var
x, y: Real;
begin
Read (x);
if x > 10 then
y := Pi - 2 * x
else
y := 1 - x;
Write (y)
end.
ЗАДАЧА №2
var
a, b: Real;
begin
Read (a, b);
Write (sqr (min (a, b)), ' ', max (a, b) * max (a, b) * max (a, b))
end.
ЗАДАЧА №3
var
a, c: Word;
begin
Read (a);
c := 0;
if a div 100 < 5 then
Inc (c);
if (a div 10) mod 10 < 5 then
Inc (c);
if a mod 10 < 5 then
Inc (c);
if c > 0 then
Write ('содержит цифры меньше 5')
else
Write ('не содержит цифры меньше 5')
end.