Задача сделана на языке паскаль, при помощи PaskalPlus
Оформление сделана как студенческой задачи
Если есть вопросы пиши в личку
А) Комбинацию клавиш Shift +буква
б) Caps Lock
1) 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J
2) 3*10 в 4(степени) + 2*10 в 3 + 4*10 во 2 + 7*10 в 1 + 8*10 в 0 + 3* 10 в -1 + 8*10 в -2 = 3*10000 + 2*1000 +4*100 + 7*10 + 8*1 + 0,3 + 0,08 = 32478,38
Операция div - это целочисленное деление, т.е. сколько раз поместится число 3 в числе 8. Ответ будет 8/3=2
Есть еще другое деление - mod, т.е. остаток от целочисленного деления.
Если 8 mod 3 = 666666666666667
program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
******************************************
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.