600 МБайт = 600 * 1024 = 614400 Кбайт
Всего фотографий на диске: 614400 / 500 = 1228.8 но округляем в меньшую сторону, так как куска фото быть не может
1228 * 6 = 7368 секунд = 122,8 минут = 2 часа 2 минуты 48 секунд
X[k] < M
Полностью будет так
M:=X[1];
<span>for k:=2 to N do </span>
if x[k] < M then M := X[k];
Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19