Так?
зы.сы Если лишний текст не нужен - напиши. Или сам убери.
Ответ:
var
Dat: array [1..10] of Integer = (70, 80, 90, 100, 80, 40, 40, 70, 80, 90);
i, m, k: Integer;
begin
k := 1;
m := dat[k];
WriteLn (' k, m, i, Dat[k]<m');
for i := 2 to 10 do begin
if Dat [i] < m then begin
m := Dat [i];
k := i;
end;
WriteLn (k:3, m:3, i:4, ' ', Dat[i]<m);
end;
writeln ('m = ', m);
writeln ('k = ', k);
ReadLn;
end.
Объяснение:
трассировочная таблица на скриншоте
1. Для начала, определим ёмкость дискеты в битах.
Это будет
бит.
2. Если изображение черно-белое, значит 1 пиксель кодируется одним битом (0 - черный, 1 - белый).
Значит, объём одного изображения равен
бит.
3. Поделим ёмкость дискеты на объём одного изображения и выделим целую часть, это и будет количеством изображений, которые поместятся на дискете:
Построение графиков заданных функций