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.
640 умножить на 240 = 163840 пикселей
2 ГБ * 1024 = 2048 МБ
2048/3=628 шт.
Я думаю, что это кнопка "пуск".
А) 1010*11 = 11110
<span>б) 111*101 = 100011
</span><span>в) 1010*111 = 1000110</span>