<span><em /><em /><em /><em>Я, конечно, не понял, что такое "точнее нужна нач программа для того что бы он вышел", но вот прототип игры из примеров паскаля, в которой невозможно победить (запускать через Pascal.ABC, в остальных версиях могут не работать лэйблы).</em></span>
Var i,n,mn,mx: integer;
a: array of integer;
begin
{ считать количество чисел n }
write('n = '); readln(n);
{ установить длину массива а n+1,
массив динамический, нумерация с нуля}
i:=1; setlength(a,n+1);
writeln('введите числа через пробел: ');
{циклический ввод n чисел с клавиатуры}
repeat
read(a[i]);
i:=i+1;
until i>n;
{ конец ввода }
{ начальные значения для максимума и минимума mn mx }
mn:=a[1]; mx:=a[1];
{ цикл по элементам массива }
for i:=1 to n do
begin
{ если элемент массива больше текущего максимума,
то в максимум записать текущий элемент }
if a[i]>mx then mx:=a[i];
{ если элемент массива меньше текущего минимума,
то в минимум записать текущий элемент }
if a[i]<mn then mn:=a[i];
end;
{ конец цикла }
writeln('min = ',mn,' max = ',mx);
writeln('разница: (max - min) = ',mx-mn);
end.
<span>
</span>
25-й 11 будет буква й встречается дважды
Дюйм равен примерно 2.5 см
10см/2.5 = 4 дюйма
В каждом дюйме 600 пикселей
600*4 = 2400
1200*4 = 4800
2400*4800 = 11520000 - всего пикселей
2 байт * 8 = 16 бит = 2^4 - значит 1 пиксель = 4 бита
11520000 *4/8 /1024/1024 = 5.5 Мб
Ответ: 5.5 Мб